headers: reduced 'related' face priority

Don't use the 'related' face for messages which are *also* unread etc.
This commit is contained in:
Dirk-Jan C. Binnema 2022-06-26 10:42:27 +03:00
parent bdf5e2a9e5
commit 9f3c80f4dd
2 changed files with 4 additions and 4 deletions

View File

@ -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 '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))))

View File

@ -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))