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

* mu4e: correctly apply 'trashed' face (headers); make face selection a bit more explicit

This commit is contained in:
djcb 2013-05-05 12:24:15 +03:00
parent dcc3f5752f
commit 5b8cc54c69
2 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
mu4e/mu4e-headers.el
View File

@ -439,13 +439,17 @@ if provided, or at the end of the buffer otherwise."
(truncate-string-to-width str width 0 ?\s t)) " ")))))
;; now, propertize it.
(setq line (propertize line 'face
(case (car-safe (mu4e-message-field msg :flags))
('draft 'mu4e-draft-face)
('trashed 'mu4e-trashed-face)
((unread new) 'mu4e-unread-face)
('flagged 'mu4e-flagged-face)
((replied passed) 'mu4e-replied-face)
(t 'mu4e-header-face))))
(let ((flags (mu4e-message-field msg :flags)))
(cond
((memq 'trashed flags) 'mu4e-trashed-face)
((memq 'draft flags) 'mu4e-draft-face)
((or
(memq 'unread flags)
(memq 'new flags)) 'mu4e-unread-face)
((memq 'flagged flags) 'mu4e-flagged-face)
((memq 'replied flags) 'mu4e-replied-face)
((memq 'passed flags) 'mu4e-forwarded-face)
(t 'mu4e-header-face)))))
;; now, append the header line
(mu4e~headers-add-header line docid point msg)))

7
mu4e/mu4e-vars.el
View File

@ -335,7 +335,12 @@ I.e. a message with the draft flag set."
(defface mu4e-replied-face
'((t :inherit font-lock-builtin-face :bold nil))
"Face for a replied (or passed) message header."
"Face for a replied message header."
:group 'mu4e-faces)
(defface mu4e-forwarded-face
'((t :inherit font-lock-builtin-face :bold nil))
"Face for a passed (forwarded) message header."
:group 'mu4e-faces)
(defface mu4e-header-face