[notmuch] [PATCH 2/3] notmuch.el: Fix the message summary button to be active even on first column

aneesh.kumar at gmail.com aneesh.kumar at gmail.com
Tue Dec 1 08:15:48 PST 2009


From: Aneesh Kumar K.V <aneesh.kumar at gmail.com>

This make we have button activated even on the first column of
the message summary line. Remove the inverse video overlay
on the message summary line.

Signed-off-by: Aneesh Kumar K.V <aneesh.kumar at gmail.com>
---
 notmuch.el |   15 +++++++--------
 1 files changed, 7 insertions(+), 8 deletions(-)

diff --git a/notmuch.el b/notmuch.el
index c1e8257..6a0c119 100644
--- a/notmuch.el
+++ b/notmuch.el
@@ -575,7 +575,7 @@ which this thread was originally shown."
   :supertype 'notmuch-button-invisibility-toggle-type)
 (define-button-type 'notmuch-button-body-toggle-type 
   'help-echo "mouse-1, RET: Show message"
-  'face '(:inverse-video . t)
+  'face 'message-header-other
   :supertype 'notmuch-button-invisibility-toggle-type )
 
 (defun notmuch-show-markup-citations-region (beg end depth)
@@ -721,13 +721,7 @@ which this thread was originally shown."
   (forward-line)
   (let ((beg (point-marker))
         (btn nil))
-    (end-of-line)
-    ; Inverse video for subject
-    (let ((message-overlay (make-overlay beg (point))))
-      (overlay-put message-overlay 'face '(:inverse-video t))
-      (setq btn (make-button (line-beginning-position)
-			     (overlay-end message-overlay)
-			     :type 'notmuch-button-body-toggle-type)))
+
     (forward-line 1)
     (end-of-line)
     (let ((beg-hidden (point-marker)))
@@ -747,7 +741,12 @@ which this thread was originally shown."
           (overlay-put (make-overlay beg-hidden end)
                        'invisible invis-spec)
           (goto-char beg)
+	  ;; mail summary
+	  (setq btn (make-button (line-beginning-position)
+                               (line-end-position)
+                               :type 'notmuch-button-body-toggle-type))
           (forward-line)
+	  ;; subject line
           (make-button (line-beginning-position) (line-end-position)
                         'invisibility-spec (cons invis-spec t)
                         :type 'notmuch-button-headers-toggle-type))
-- 
1.6.5.2.74.g610f9



More information about the notmuch mailing list