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

emacs: Don't attempt to colour tags in `notmuch-show-mode'.

Browse source 
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
1 changed files with 2 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
emacs/notmuch-show.el
View file

@ -221,10 +221,7 @@ indentation."
(goto-char (notmuch-show-message-top)) (goto-char (notmuch-show-message-top))
(if (re-search-forward "(\\([^()]*\\))$" (line-end-position) t) (if (re-search-forward "(\\([^()]*\\))$" (line-end-position) t)
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
(replace-match (concat "(" (replace-match (concat "(" (mapconcat 'identity tags " ") ")"))))))
(propertize (mapconcat 'identity tags " ")
'face 'notmuch-tag-face)
")"))))))
(defun notmuch-show-clean-address (address) (defun notmuch-show-clean-address (address)
"Try to clean a single email ADDRESS for display. Return "Try to clean a single email ADDRESS for display. Return
@ -256,8 +253,7 @@ message at DEPTH in the current thread."
" (" " ("
date date
") (" ") ("
(propertize (mapconcat 'identity tags " ") (mapconcat 'identity tags " ")
'face 'notmuch-tag-face)
")\n") ")\n")
(overlay-put (make-overlay start (point)) 'face 'notmuch-message-summary-face))) (overlay-put (make-overlay start (point)) 'face 'notmuch-message-summary-face)))