[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