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

notmuch.el: Make hidden parts advertise how to unhide them.

Browse source 
This is in place now citations and signatures. We'll still need to
add something else for hidden messages (those that are already
read and hidden away).
This commit is contained in:
Carl Worth 2009-11-05 11:25:02 -08:00
parent ab68891bec
commit 51a68d4e01
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
notmuch.el
View file

@ -408,7 +408,7 @@ which this thread was originally shown."
(overlay-put overlay 'invisible 'notmuch-show-citation)
(overlay-put overlay 'before-string
(concat "[" (number-to-string (count-lines beg-sub (point)))
" quoted lines.]\n")))))
"-line citation. Press 'c' to show.]\n")))))
(if (looking-at "--[ ]?$")
(let ((sig-lines (count-lines beg-sub end)))
(if (<= sig-lines notmuch-show-signature-lines-max)
@ -416,7 +416,7 @@ which this thread was originally shown."
(overlay-put (make-overlay beg-sub (+ beg-sub 1))
'before-string
(concat "[" (number-to-string sig-lines)
"-line signature.]"))
"-line signature. Press 's' to show.]"))
(overlay-put (make-overlay (+ beg-sub 2) end)
'invisible 'notmuch-show-signature)
(goto-char end)))))