emacs: Don't attempt to colour tags in `notmuch-show-mode'.
authorDavid Edmondson <dme@dme.org>
Tue, 27 Dec 2011 16:47:14 +0000 (16:47 +0000)
committerDavid Bremner <bremner@debian.org>
Mon, 16 Jan 2012 02:31:00 +0000 (22:31 -0400)
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

index 03c1f6b7d7f559ad87d994aa5b80884acadccd1f..1a250a30a51dacde76c11f8c2718639130807ee9 100644 (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)))