alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* mu4e-main: don't show queing options when not defined

Browse Source
This commit is contained in:
djcb
2012-01-07 14:25:56 +02:00
parent c3f359be03
commit eb31c42096
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
emacs/mu4e-main.el
View File

@ -127,7 +127,7 @@ clicked."
'mu4e-retrieve-mail-update-db) 'mu4e-retrieve-mail-update-db)
;; show the queue functions if `smtpmail-queue-dir' is defined ;; show the queue functions if `smtpmail-queue-dir' is defined
(if smtpmail-queue-dir (if (file-directory-p smtpmail-queue-dir)
(concat (concat
(mu4e-action-str "\t* toggle [m]ail sending mode " (mu4e-action-str "\t* toggle [m]ail sending mode "
'mu4e-toggle-mail-sending-mode) 'mu4e-toggle-mail-sending-mode)
@ -156,6 +156,8 @@ clicked."
(defun mu4e-toggle-mail-sending-mode () (defun mu4e-toggle-mail-sending-mode ()
"Toggle sending mail mode, either queued or direct." "Toggle sending mail mode, either queued or direct."
(interactive) (interactive)
(unless (file-directory-p smtpmail-queue-dir)
(error "`smtp-queue-dir' does not exist"))
(setq smtpmail-queue-mail (not smtpmail-queue-mail)) (setq smtpmail-queue-mail (not smtpmail-queue-mail))
(message (message
(if smtpmail-queue-mail (if smtpmail-queue-mail