[notmuch] [PATCH] notmuch.el: Add face support to message summary and subject lines.

[Aneesh Kumar K. V]

On Mon, 30 Nov 2009 22:50:39 +0800, Kan-Ru Chen <kanru at kanru.info> wrote:
> Remove the underline of both message summary and subject lines.
> Message summary still defaults to reverse-video, use customize to
> change it to whatever you like.
> 
> Signed-off-by: Kan-Ru Chen <kanru at kanru.info>
> ---
>  notmuch.el |   20 ++++++++++++++++----
>  1 files changed, 16 insertions(+), 4 deletions(-)
> 
> diff --git a/notmuch.el b/notmuch.el
> index 65473ba..730538c 100644
> --- a/notmuch.el
> +++ b/notmuch.el
> @@ -714,9 +714,8 @@ which this thread was originally shown."
>    (let ((beg (point-marker))
>          (btn nil))
>      (end-of-line)
> -    ; Inverse video for subject
> -    (overlay-put (make-overlay beg (point)) 'face '(:inverse-video t))
> -    (setq btn (make-button beg (point) :type 'notmuch-button-body-toggle-type))
> +    (setq btn (make-button beg (point) :type 'notmuch-button-body-toggle-type
> +                           'face 'notmuch-show-message-summary-face))
>      (forward-line 1)
>      (end-of-line)
>      (let ((beg-hidden (point-marker)))
> @@ -739,7 +738,8 @@ which this thread was originally shown."
>            (forward-line)
>            (make-button (line-beginning-position) (line-end-position)
>                          'invisibility-spec (cons invis-spec t)
> -                        :type 'notmuch-button-headers-toggle-type))
> +                        :type 'notmuch-button-headers-toggle-type
> +                        'face 'notmuch-show-message-headers-face))
>          (goto-char end)
>          (insert "\n")
>  	(set-marker beg nil)
> @@ -959,6 +959,18 @@ thread from that buffer can be show when done with this one)."
>    "Notmuch search mode face used to highligh tags."
>    :group 'notmuch)
> 
> +(defface notmuch-show-message-summary-face
> +  '((default
> +    (:bold t :inverse-video t)))
> +  "Notmuch show mode face used to highlight summary line."
> +  :group 'notmuch)
> +
> +(defface notmuch-show-message-headers-face
> +  '((default
> +     (:bold t)))
> +  "Notmuch show mode face used to highlight header lines."
> +  :group 'notmuch)
> +
>  (defvar notmuch-tag-face-alist nil
>    "List containing the tag list that need to be highlighed")
> 

The subject line is already have a font face value attached.
message-header-name to show the name of the header and
message-header-subject to show the subject details.

-aneesh