debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 02:48:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Since we know what these buttons do it seems like the underlines are

Browse source 
unnecessary.
This commit is contained in:
Alexander Botero-Lowry 2009-12-03 10:52:58 -08:00 committed by Carl Worth
parent a0439ded70
commit 8e126fe1fb
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
notmuch.el
View file

@ -574,14 +574,19 @@ which this thread was originally shown."
(force-window-update) (force-window-update)
(redisplay t)) (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" (define-button-type 'notmuch-button-citation-toggle-type 'help-echo "mouse-1, RET: Show citation"
:supertype 'notmuch-button-invisibility-toggle-type) :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) :supertype 'notmuch-button-invisibility-toggle-type)
(define-button-type 'notmuch-button-headers-toggle-type 'help-echo "mouse-1, RET: Show headers" (define-button-type 'notmuch-button-headers-toggle-type 'help-echo "mouse-1, RET: Show headers"
:supertype 'notmuch-button-invisibility-toggle-type) :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) :supertype 'notmuch-button-invisibility-toggle-type)
(defun notmuch-show-markup-citations-region (beg end depth) (defun notmuch-show-markup-citations-region (beg end depth)
@ -737,7 +742,6 @@ which this thread was originally shown."
(let ((end (point-marker))) (let ((end (point-marker)))
(indent-rigidly beg end depth) (indent-rigidly beg end depth)
(goto-char beg) (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)) (setq btn (make-button (line-beginning-position) summary-end :type 'notmuch-button-body-toggle-type))
(forward-line) (forward-line)
(add-to-invisibility-spec invis-spec) (add-to-invisibility-spec invis-spec)