diff options
| author | David Edmondson <dme@dme.org> | 2010-05-19 08:03:39 +0100 |
|---|---|---|
| committer | Carl Worth <cworth@cworth.org> | 2010-06-03 19:13:23 -0700 |
| commit | 0109f67e38fa77da245b98babcb693562ea995ee (patch) | |
| tree | 02bf44b1e930be82c00e4045a770ba551126ec03 /emacs | |
| parent | 17b09af22809d32cd6bf8050bb30f80d9810944f (diff) | |
emacs: Tags should be shown with `notmuch-tag-face'.
Use the same face for tags in `notmuch-show' mode as that used in
`notmuch-search' mode.
Diffstat (limited to 'emacs')
| -rw-r--r-- | emacs/notmuch-show.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index 686e203..d66894a 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -194,7 +194,8 @@ any given message." (if (re-search-forward "(\\([^()]*\\))$" (line-end-position) t) (let ((inhibit-read-only t)) (replace-match (concat "(" - (mapconcat 'identity tags " ") + (propertize (mapconcat 'identity tags " ") + 'face 'notmuch-tag-face) ")")))))) (defun notmuch-show-insert-headerline (headers date tags depth) @@ -206,7 +207,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))) |