diff options
author | Alexander Botero-Lowry <alex.boterolowry@gmail.com> | 2009-12-03 10:52:58 -0800 |
---|---|---|
committer | Carl Worth <cworth@cworth.org> | 2009-12-03 11:29:35 -0800 |
commit | 8e126fe1fb188ecc85ff53134bd9afd3d394b041 (patch) | |
tree | 72516ab960af4d00030cd1ee310c233d3744c1f0 /notmuch.el | |
parent | a0439ded70b69978b982a8defa48848780aba518 (diff) |
Since we know what these buttons do it seems like the underlines are
unnecessary.
Diffstat (limited to 'notmuch.el')
-rw-r--r-- | notmuch.el | 10 |
1 files changed, 7 insertions, 3 deletions
@@ -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) |