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

make headers locally expandable/collapsable

Browse source 
This is the same as with citations and signatures.
I used an ellipsis here for the invisible region, which
I think make it more obvious that there are extra headers.
MH-e used this for extra long To/CC headers.
This commit is contained in:
Alexander Botero-Lowry 2009-11-23 22:25:33 -08:00 committed by Alexander Botero-Lowry
parent f615803932
commit bde9284064
1 changed files with 15 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
notmuch.el
View file

@ -605,7 +605,8 @@ which this thread was originally shown."
(end-of-line)
; Inverse video for subject
(overlay-put (make-overlay beg (point)) 'face '(:inverse-video t))
(forward-line 2)
(forward-line 1)
(end-of-line)
(let ((beg-hidden (point-marker)))
(re-search-forward notmuch-show-header-end-regexp)
(beginning-of-line)
@ -619,8 +620,19 @@ which this thread was originally shown."
(forward-line)
)
(indent-rigidly beg end depth)
(let ((invis-spec (make-symbol "notmuch-show-header")))
(add-to-invisibility-spec (cons invis-spec t))
(overlay-put (make-overlay beg-hidden end)
'invisible 'notmuch-show-header)
'invisible invis-spec)
(goto-char beg)
(forward-line)
(let ((header-button (make-button (line-beginning-position) (line-end-position))))
(button-put header-button 'invisibility-spec (cons invis-spec t))
(button-put header-button 'action 'notmuch-toggle-invisible-action)
(button-put header-button 'follow-link t)
(button-put header-button 'help-echo
"mouse-1, RET: Show headers")
))
(goto-char end)
(insert "\n")
(set-marker beg nil)