[notmuch] [PATCH] notmuch.el: Add face support to message summary and subject lines.
Kan-Ru Chen
kanru at kanru.info
Mon Nov 30 06:50:39 PST 2009
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")
--
1.6.5.3
More information about the notmuch
mailing list