From 4b256ff557e924fbaffca144d25a9d5f92026146 Mon Sep 17 00:00:00 2001 From: David Edmondson Date: Tue, 27 Dec 2011 16:47:14 +0000 Subject: [PATCH] emacs: Don't attempt to colour tags in `notmuch-show-mode'. The tags were coloured using text properties. Unfortunately that text (the header line) also has an overlay, which overrides the text properties. There's not point in applying text properties that will never be seen. --- emacs/notmuch-show.el | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index 03c1f6b7..1a250a30 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -221,10 +221,7 @@ indentation." (goto-char (notmuch-show-message-top)) (if (re-search-forward "(\\([^()]*\\))$" (line-end-position) t) (let ((inhibit-read-only t)) - (replace-match (concat "(" - (propertize (mapconcat 'identity tags " ") - 'face 'notmuch-tag-face) - ")")))))) + (replace-match (concat "(" (mapconcat 'identity tags " ") ")")))))) (defun notmuch-show-clean-address (address) "Try to clean a single email ADDRESS for display. Return @@ -256,8 +253,7 @@ message at DEPTH in the current thread." " (" date ") (" - (propertize (mapconcat 'identity tags " ") - 'face 'notmuch-tag-face) + (mapconcat 'identity tags " ") ")\n") (overlay-put (make-overlay start (point)) 'face 'notmuch-message-summary-face)))