aboutsummaryrefslogtreecommitdiffhomepage
path: root/emacs
diff options
context:
space:
mode:
authorGravatar David Bremner <bremner@debian.org>2012-01-17 08:01:48 -0400
committerGravatar David Bremner <bremner@debian.org>2012-01-17 08:01:48 -0400
commitefa5d6cb32825f4744ddcfdcfa2fc354d9740ce1 (patch)
tree63d5e7c9642e65484caa38096615764074dd1693 /emacs
parentd2df1eca1e661f4354517b5030489ea162719df8 (diff)
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.
Diffstat (limited to 'emacs')
-rw-r--r--emacs/notmuch-show.el8
1 files 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)))