[PATCH] emacs: Don't attempt to colour tags in `notmuch-show-mode'.
Austin Clements
amdragon at MIT.EDU
Tue Dec 27 19:29:57 PST 2011
LGTM.
Quoth David Edmondson on Dec 27 at 4:47 pm:
> 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.
> ---
> emacs/notmuch-show.el | 8 ++------
> 1 files changed, 2 insertions(+), 6 deletions(-)
>
> diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
> index 8c9d846..24f0b40 100644
> --- a/emacs/notmuch-show.el
> +++ b/emacs/notmuch-show.el
> @@ -221,10 +221,7 @@ indentation."
> (goto-char (notmuch-show-message-top))
> (if (re-search-forward "(\\([^()]*\\))$" (line-end-position) t)
> (let ((inhibit-read-only t))
> - (replace-match (concat "("
> - (propertize (mapconcat 'identity tags " ")
> - 'face 'notmuch-tag-face)
> - ")"))))))
> + (replace-match (concat "(" (mapconcat 'identity tags " ") ")"))))))
>
> (defun notmuch-show-clean-address (address)
> "Try to clean a single email ADDRESS for display. Return
> @@ -278,8 +275,7 @@ message at DEPTH in the current thread."
> " ("
> date
> ") ("
> - (propertize (mapconcat 'identity tags " ")
> - 'face 'notmuch-tag-face)
> + (mapconcat 'identity tags " ")
> ")\n")
> (overlay-put (make-overlay start (point)) 'face 'notmuch-message-summary-face)))
>
More information about the notmuch
mailing list