aboutsummaryrefslogtreecommitdiffhomepage
path: root/notmuch.el
diff options
context:
space:
mode:
authorGravatar Alexander Botero-Lowry <alex.boterolowry@gmail.com>2009-12-03 10:52:58 -0800
committerGravatar Carl Worth <cworth@cworth.org>2009-12-03 11:29:35 -0800
commit8e126fe1fb188ecc85ff53134bd9afd3d394b041 (patch)
tree72516ab960af4d00030cd1ee310c233d3744c1f0 /notmuch.el
parenta0439ded70b69978b982a8defa48848780aba518 (diff)
Since we know what these buttons do it seems like the underlines are
unnecessary.
Diffstat (limited to 'notmuch.el')
-rw-r--r--notmuch.el10
1 files changed, 7 insertions, 3 deletions
diff --git a/notmuch.el b/notmuch.el
index b3f67d2b..54b4ba86 100644
--- a/notmuch.el
+++ b/notmuch.el
@@ -574,14 +574,19 @@ 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-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"
: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-body-toggle-type
+ 'help-echo "mouse-1, RET: Show message"
+ 'face 'notmuch-message-summary-face
:supertype 'notmuch-button-invisibility-toggle-type)
(defun notmuch-show-markup-citations-region (beg end depth)
@@ -737,7 +742,6 @@ which this thread was originally shown."
(let ((end (point-marker)))
(indent-rigidly beg end depth)
(goto-char beg)
- (overlay-put (make-overlay (line-beginning-position) summary-end) 'face 'notmuch-message-summary-face)
(setq btn (make-button (line-beginning-position) summary-end :type 'notmuch-button-body-toggle-type))
(forward-line)
(add-to-invisibility-spec invis-spec)