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.
This commit is contained in:
David Edmondson 2011-12-27 16:47:14 +00:00 committed by David Bremner
parent baa2c9721d
commit 4b256ff557

View file

@ -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)))