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

* mu4e: add special face for replied/passed headers

This commit is contained in:
djcb 2012-07-10 21:10:00 +03:00
parent dc62bd6c75
commit 0e011783c0
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mu4e/mu4e-headers.el
View File

@ -306,10 +306,12 @@ if provided, or at the end of the buffer otherwise."
(propertize line 'face 'mu4e-draft-face))
((member 'trashed flags)
(propertize line 'face 'mu4e-trashed-face))
((member 'unread flags)
((or (member 'unread flags) (member 'new flags))
(propertize line 'face 'mu4e-unread-face))
((member 'flagged flags)
(propertize line 'face 'mu4e-flagged-face))
((or (member 'replied flags) (member 'passed flags))
(propertize line 'face 'mu4e-replied-face))
(t ;; else
(propertize line 'face 'mu4e-header-face)))))

8
mu4e/mu4e-vars.el
View File

@ -203,7 +203,6 @@ designated shortcut character for the maildir.")
:group 'mu4e
:group 'faces)
(defface mu4e-unread-face
'((t :inherit font-lock-keyword-face :bold t))
"Face for an unread message header."
@ -228,10 +227,15 @@ flag set)."
:group 'mu4e-faces)
(defface mu4e-flagged-face
'((t :inherit font-lock-builtin-face :bold t))
'((t :inherit font-lock-constant-face :bold t))
"Face for a flagged message header."
:group 'mu4e-faces)
(defface mu4e-replied-face
'((t :inherit font-lock-builtin-face :bold nil))
"Face for a replied (or passed) message header."
:group 'mu4e-faces)
(defface mu4e-header-face
'((t :inherit default))
"Face for a header without any special flags."