From 0109f67e38fa77da245b98babcb693562ea995ee Mon Sep 17 00:00:00 2001 From: David Edmondson Date: Wed, 19 May 2010 08:03:39 +0100 Subject: [PATCH] emacs: Tags should be shown with `notmuch-tag-face'. Use the same face for tags in `notmuch-show' mode as that used in `notmuch-search' mode. --- emacs/notmuch-show.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index 686e2037..d66894ae 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -194,7 +194,8 @@ any given message." (if (re-search-forward "(\\([^()]*\\))$" (line-end-position) t) (let ((inhibit-read-only t)) (replace-match (concat "(" - (mapconcat 'identity tags " ") + (propertize (mapconcat 'identity tags " ") + 'face 'notmuch-tag-face) ")")))))) (defun notmuch-show-insert-headerline (headers date tags depth) @@ -206,7 +207,8 @@ message at DEPTH in the current thread." " (" date ") (" - (mapconcat 'identity tags " ") + (propertize (mapconcat 'identity tags " ") + 'face 'notmuch-tag-face) ")\n") (overlay-put (make-overlay start (point)) 'face 'notmuch-message-summary-face)))