From: Alexander Botero-Lowry <alex.boterolowry@gmail.com> Since we know what these buttons do it seems like the underlines are unnecessary. This also backs out the attempt at fixing the button alignment on the message row, which is broken because of some interaction with indent-rigidly in some threads --- notmuch.el | 27 +++++++++++++++++++-------- 1 files changed, 19 insertions(+), 8 deletions(-) diff --git a/notmuch.el b/notmuch.el index 65473ba..c1e8257 100644 --- a/notmuch.el +++ b/notmuch.el @@ -560,15 +560,23 @@ which this thread was originally shown." (force-window-update) (redisplay t)) -(define-button-type 'notmuch-button-invisibility-toggle-type 'action 'notmuch-toggle-invisible-action 'follow-link t) -(define-button-type 'notmuch-button-citation-toggle-type 'help-echo "mouse-1, RET: Show citation" +(define-button-type 'notmuch-button-invisibility-toggle-type + 'action 'notmuch-toggle-invisible-action + 'follow-link t + 'face "default") +(define-button-type 'notmuch-button-citation-toggle-type + 'help-echo "mouse-1, RET: Show citation" :supertype 'notmuch-button-invisibility-toggle-type) -(define-button-type 'notmuch-button-signature-toggle-type 'help-echo "mouse-1, RET: Show signature" +(define-button-type 'notmuch-button-signature-toggle-type + 'help-echo "mouse-1, RET: Show signature" :supertype 'notmuch-button-invisibility-toggle-type) -(define-button-type 'notmuch-button-headers-toggle-type 'help-echo "mouse-1, RET: Show headers" - :supertype 'notmuch-button-invisibility-toggle-type) -(define-button-type 'notmuch-button-body-toggle-type 'help-echo "mouse-1, RET: Show message" +(define-button-type 'notmuch-button-headers-toggle-type + 'help-echo "mouse-1, RET: Show headers" :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) + :supertype 'notmuch-button-invisibility-toggle-type ) (defun notmuch-show-markup-citations-region (beg end depth) (goto-char beg) @@ -715,8 +723,11 @@ which this thread was originally shown." (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)) + (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))) -- 1.6.5.2.74.g610f9