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

Buttonize citation expander.

Browse source 
Currently the button has no action or special handling at all.
This commit is contained in:
Alexander Botero-Lowry 2009-11-19 12:30:32 -08:00 committed by Alexander Botero-Lowry
parent a15f174437
commit 14f492ba0c
1 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
notmuch.el
View file

@ -490,10 +490,17 @@ which this thread was originally shown."
(forward-line))
(let ((overlay (make-overlay beg-sub (point))))
(overlay-put overlay 'invisible 'notmuch-show-citation)
(overlay-put overlay 'before-string
(concat indent
"[" (number-to-string (count-lines beg-sub (point)))
"-line citation. Press 'c' to show.]\n")))))
(let (
(p (point))
(cite-button-text (concat "[" (number-to-string (count-lines beg-sub (point)))
"-line citation. Press 'c' to show.]"))
)
(goto-char (- beg-sub 1))
(insert (concat "\n" indent))
(insert-button cite-button-text)
(insert "\n")
(goto-char (+ (length cite-button-text) p))
))))
(move-to-column depth)
(if (looking-at notmuch-show-signature-regexp)
(let ((sig-lines (- (count-lines beg-sub end) 1)))