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

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

Browse source 
This reverts commit 4b256ff557.

According to id:"87aa5nlwwg.fsf@praet.org" and followup messages, the
assumptions of the patch seem not to hold in emacs 23.
This commit is contained in:
David Bremner 2012-01-17 08:01:48 -04:00
parent d2df1eca1e
commit efa5d6cb32
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
emacs/notmuch-show.el
View file

@ -221,7 +221,10 @@ 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 "(" (mapconcat 'identity tags " ") ")")))))) (replace-match (concat "("
(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
@ -253,7 +256,8 @@ message at DEPTH in the current thread."
" (" " ("
date date
") (" ") ("
(mapconcat 'identity tags " ") (propertize (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)))