From 9f3c80f4dd72d777dea3644bd27e69f1abc331b3 Mon Sep 17 00:00:00 2001 From: "Dirk-Jan C. Binnema" Date: Sun, 26 Jun 2022 10:42:27 +0300 Subject: [PATCH] headers: reduced 'related' face priority Don't use the 'related' face for messages which are *also* unread etc. --- mu4e/mu4e-headers.el | 6 +++--- mu4e/mu4e-vars.el | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/mu4e/mu4e-headers.el b/mu4e/mu4e-headers.el index b00bc43e..dc96fdf7 100644 --- a/mu4e/mu4e-headers.el +++ b/mu4e/mu4e-headers.el @@ -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)))) diff --git a/mu4e/mu4e-vars.el b/mu4e/mu4e-vars.el index 63281911..dd0ffde5 100644 --- a/mu4e/mu4e-vars.el +++ b/mu4e/mu4e-vars.el @@ -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))