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

[Pieter Praet <pieter@praet.org>]

On Tue, 27 Dec 2011 16:47:14 +0000, David Edmondson <dme@dme.org> wrote:
> 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)))
>  
> -- 
> 1.7.7.3

Alas, those text properties actually *were* effective (and I liked them :)

- Before: http://i.imgur.com/Ipxnm.png
- After:  http://i.imgur.com/XcaaF.png


Peace

-- 
Pieter