mirror of https://github.com/djcb/mu.git
headers: reduced 'related' face priority
Don't use the 'related' face for messages which are *also* unread etc.
This commit is contained in:
parent
bdf5e2a9e5
commit
9f3c80f4dd
|
@ -664,16 +664,16 @@ space propertized with a `display' text property which expands to
|
|||
val))
|
||||
|
||||
(defsubst mu4e~headers-apply-flags (msg fieldval)
|
||||
"Adjust LINE's face property based on FLAGS."
|
||||
"Adjust FIELDVAL's face property based on flags in MSG."
|
||||
(let* ((flags (plist-get msg :flags))
|
||||
(meta (plist-get msg :meta))
|
||||
(face (cond
|
||||
((plist-get meta :related) 'mu4e-related-face)
|
||||
((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)
|
||||
((plist-get meta :related) 'mu4e-related-face)
|
||||
((memq 'replied flags) 'mu4e-replied-face)
|
||||
((memq 'passed flags) 'mu4e-forwarded-face)
|
||||
(t 'mu4e-header-face))))
|
||||
|
|
|
@ -102,7 +102,7 @@ I.e. a message with the draft flag set."
|
|||
|
||||
(defface mu4e-related-face
|
||||
'((t :inherit default :slant italic))
|
||||
"Face for a 'related' header." :group 'mu4e-faces)
|
||||
"Face for a \='related' header." :group 'mu4e-faces)
|
||||
|
||||
(defface mu4e-header-title-face
|
||||
'((t :inherit font-lock-type-face))
|
||||
|
|
Loading…
Reference in New Issue