[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