diff options
Diffstat (limited to 'emacs')
| -rw-r--r-- | emacs/notmuch-show.el | 8 |
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))) |