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

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

19
emacs/mu4e-main.el
View File

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