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

* mu4e: advertise guile support

Browse Source
This commit is contained in:
djcb
2012-10-17 23:36:35 +03:00
parent 48467099b5
commit 5b8de3a97b
3 changed files with 20 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
mu4e/mu4e-main.el
View File

@ -103,11 +103,13 @@ clicked."
(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
;; crypto support, a big G when there's Guile support
" "
(if (plist-get mu4e~server-props :crypto)
(propertize "C" 'face 'mu4e-title-face)
"")
(propertize
(concat
(when (plist-get mu4e~server-props :crypto) "C")
(when (plist-get mu4e~server-props :guile) "G"))
'face 'mu4e-title-face)
"\n\n"
(propertize " Basics\n\n" 'face 'mu4e-title-face)
(mu4e~main-action-str "\t* [j]ump to some maildir\n" 'mu4e-jump-to-maildir)