From: Aneesh Kumar K.V <aneesh.ku...@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