debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-21 18:38:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Tags should be shown with `notmuch-tag-face'.

Browse source 
Use the same face for tags in `notmuch-show' mode as that used in
`notmuch-search' mode.
This commit is contained in:
David Edmondson 2010-05-19 08:03:39 +01:00 committed by Carl Worth
parent 17b09af228
commit 0109f67e38
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
emacs/notmuch-show.el
View file

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