From 0e011783c00f40486c4860c46a4506741a5efba2 Mon Sep 17 00:00:00 2001 From: djcb Date: Tue, 10 Jul 2012 21:10:00 +0300 Subject: [PATCH] * mu4e: add special face for replied/passed headers --- mu4e/mu4e-headers.el | 4 +++- mu4e/mu4e-vars.el | 8 ++++++-- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/mu4e/mu4e-headers.el b/mu4e/mu4e-headers.el index a6230972..3ecb656f 100644 --- a/mu4e/mu4e-headers.el +++ b/mu4e/mu4e-headers.el @@ -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))))) diff --git a/mu4e/mu4e-vars.el b/mu4e/mu4e-vars.el index eb22adc0..43a0865b 100644 --- a/mu4e/mu4e-vars.el +++ b/mu4e/mu4e-vars.el @@ -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."