debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-28 13:44:12 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Add instructions to the hidden citations/signatures.

Browse source 
We've received a user report that the hidden citations were annoying
since the user couldn't tell what was being referred to by subsequent
text. Apparently it wasn't obvious enough that the hidden citation
could be revealed by clicking or by pressing Enter. So make the button
text say as much.
This commit is contained in:
Carl Worth 2009-12-11 15:52:40 -08:00
parent 19e8ad6393
commit dac01ec520
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

@ -613,13 +613,13 @@ which this thread was originally shown."
(let ((p (point-marker)) (let ((p (point-marker))
(cite-button-text (cite-button-text
(concat "[" (number-to-string (count-lines beg-sub (point))) (concat "[" (number-to-string (count-lines beg-sub (point)))
"-line citation.]"))) "-line citation. Click/Enter to show.]")))
(goto-char (- beg-sub 1)) (goto-char (- beg-sub 1))
(insert (concat "\n" indent)) (insert (concat "\n" indent))
(insert-button cite-button-text (insert-button cite-button-text
'invisibility-spec invis-spec 'invisibility-spec invis-spec
:type 'notmuch-button-citation-toggle-type) :type 'notmuch-button-citation-toggle-type)
(goto-char (+ (length cite-button-text) p)) (forward-line)
)))) ))))
(move-to-column depth) (move-to-column depth)
(if (looking-at notmuch-show-signature-regexp) (if (looking-at notmuch-show-signature-regexp)