From efa5d6cb32825f4744ddcfdcfa2fc354d9740ce1 Mon Sep 17 00:00:00 2001 From: David Bremner Date: Tue, 17 Jan 2012 08:01:48 -0400 Subject: [PATCH] Revert "emacs: Don't attempt to colour tags in `notmuch-show-mode'." This reverts commit 4b256ff557e924fbaffca144d25a9d5f92026146. According to id:"87aa5nlwwg.fsf@praet.org" and followup messages, the assumptions of the patch seem not to hold in emacs 23. --- emacs/notmuch-show.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index 1a250a30..03c1f6b7 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -221,7 +221,10 @@ indentation." (goto-char (notmuch-show-message-top)) (if (re-search-forward "(\\([^()]*\\))$" (line-end-position) t) (let ((inhibit-read-only t)) - (replace-match (concat "(" (mapconcat 'identity tags " ") ")")))))) + (replace-match (concat "(" + (propertize (mapconcat 'identity tags " ") + 'face 'notmuch-tag-face) + ")")))))) (defun notmuch-show-clean-address (address) "Try to clean a single email ADDRESS for display. Return @@ -253,7 +256,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)))