emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

* mu4e-main.el: only show queuing items when queue dir is set; fix toggling queing

This commit is contained in:
djcb 2011-12-23 00:39:12 +02:00
parent c8c1b74c8a
commit 00caa6bc33
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
emacs/mu4e-main.el
View File

@ -101,12 +101,19 @@
"\n"
(propertize " Misc\n\n" 'face 'mu4e-title-face)
(mu4e-action-str "\t* [U]pdate email & database\n")
(mu4e-action-str "\t* toggle [m]ail sending mode ")
"(" (propertize (if smtpmail-queue-mail "queued" "direct")
'face 'mu4e-view-header-key-face) ")\n"
(mu4e-action-str "\t* [f]lush queued mail\n")
;; show the queue functions if `smtpmail-queue-dir' is defined
(if smtpmail-queue-dir
(concat
(mu4e-action-str "\t* [U]pdate email & database\n")
(mu4e-action-str "\t* toggle [m]ail sending mode ")
"(" (propertize (if smtpmail-queue-mail "queued" "direct")
'face 'mu4e-view-header-key-face) ")\n"
(mu4e-action-str "\t* [f]lush queued mail\n"))
"")
"\n"
(mu4e-action-str "\t* [H]elp\n")
(mu4e-action-str "\t* [q]uit\n"))
(mu4e-main-mode)
@ -130,7 +137,7 @@
(if smtpmail-queue-mail
"Outgoing mail will now be queued"
"Outgoing mail will now be sent directly"))
(mu4e))
(mu4e-main-view))
(defun mu4e-display-manual ()
"Display the mu4e manual info pages."