From: Carl Worth <cworth@cworth.org>
Date: Thu, 3 Dec 2009 17:52:43 +0000 (-0800)
Subject: emacs: Highlight message-summary with background-color instead of inverse video.
X-Git-Tag: 0.1~241
X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=commitdiff_plain;h=6945e7e103fdc10cb676571b313eac5abd62d0c6

emacs: Highlight message-summary with background-color instead of inverse video.

Also, do this with a notmuch-message-summary-face variable so that
the user can easily customize the desried effect.
---

diff --git a/notmuch.el b/notmuch.el
index 29bb9eb2..f3adfcf5 100644
--- a/notmuch.el
+++ b/notmuch.el
@@ -728,8 +728,7 @@ which this thread was originally shown."
   (let ((beg (point-marker))
 	(summary-end (copy-marker (line-beginning-position 2)))
         (btn nil))
-    ; Inverse video for subject
-    (overlay-put (make-overlay beg summary-end) 'face '(:inverse-video t))
+    (overlay-put (make-overlay beg summary-end) 'face 'notmuch-message-summary-face)
     (setq btn (make-button beg summary-end :type 'notmuch-button-body-toggle-type))
     (forward-line 1)
     (end-of-line)
@@ -1046,6 +1045,12 @@ thread from that buffer can be show when done with this one)."
   (interactive)
   (goto-char (point-min)))
 
+(defface notmuch-message-summary-face
+ '((((class color) (background light)) (:background "#f0f0f0"))
+   (((class color) (background dark)) (:background "#303030")))
+ "Face for the single-line message summary in notmuch-show-mode."
+ :group 'notmuch)
+
 (defface notmuch-tag-face
   '((((class color)
       (background dark))