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

* mu4e: show 'C' in first line of main page to indicate crypto support

Browse Source
This commit is contained in:
djcb
2012-09-01 20:05:17 +03:00
parent e63ed13f5f
commit c8065a0e1b
1 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
mu4e/mu4e-main.el
View File

@ -101,6 +101,15 @@ clicked."
"* " "* "
(propertize "mu4e - mu for emacs version " 'face 'mu4e-title-face) (propertize "mu4e - mu for emacs version " 'face 'mu4e-title-face)
(propertize mu4e-mu-version 'face 'mu4e-view-header-key-face) (propertize mu4e-mu-version 'face 'mu4e-view-header-key-face)
;; show some server properties; in this case; a big C when there's
;; crypto support
" "
(when (plist-get mu4e~server-props :crypto)
(propertize "C" 'face 'mu4e-title-face))
""
"\n\n" "\n\n"
(propertize " Basics\n\n" 'face 'mu4e-title-face) (propertize " Basics\n\n" 'face 'mu4e-title-face)
(mu4e~main-action-str "\t* [j]ump to some maildir\n" 'mu4e-jump-to-maildir) (mu4e~main-action-str "\t* [j]ump to some maildir\n" 'mu4e-jump-to-maildir)
@ -151,5 +160,5 @@ clicked."
(concat "Outgoing mail will now be " (concat "Outgoing mail will now be "
(if smtpmail-queue-mail "queued" "sent directly"))) (if smtpmail-queue-mail "queued" "sent directly")))
(mu4e~main-view)) (mu4e~main-view))
(provide 'mu4e-main) (provide 'mu4e-main)