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

notmuch.el: Colour cited regions and signatures with message-cited-text-face

Browse source 
Signed-off-by: Sebastian Spaeth <Sebastian@SSpaeth.de> (with fixup to
               avoid over-eager coloring of signatures).
This commit is contained in:
David Edmondson 2010-02-15 16:56:15 +01:00 committed by Carl Worth
parent 84767fd582
commit e95dac86f5
1 changed files with 10 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
emacs/notmuch-show.el
View file

@ -679,6 +679,7 @@ is what to put on the button."
(let* ((cite-start (match-beginning 0)) (let* ((cite-start (match-beginning 0))
(cite-end (match-end 0)) (cite-end (match-end 0))
(cite-lines (count-lines cite-start cite-end))) (cite-lines (count-lines cite-start cite-end)))
(overlay-put (make-overlay cite-start cite-end) 'face 'message-cited-text-face)
(when (> cite-lines (1+ notmuch-show-citation-lines-prefix)) (when (> cite-lines (1+ notmuch-show-citation-lines-prefix))
(goto-char cite-start) (goto-char cite-start)
(forward-line notmuch-show-citation-lines-prefix) (forward-line notmuch-show-citation-lines-prefix)
@ -695,13 +696,15 @@ is what to put on the button."
(sig-end (match-end 0)) (sig-end (match-end 0))
(sig-lines (1- (count-lines sig-start end)))) (sig-lines (1- (count-lines sig-start end))))
(if (<= sig-lines notmuch-show-signature-lines-max) (if (<= sig-lines notmuch-show-signature-lines-max)
(notmuch-show-region-to-button (progn
sig-start (overlay-put (make-overlay sig-start end) 'face 'message-cited-text-face)
end (notmuch-show-region-to-button
"signature" sig-start
indent end
(format notmuch-show-signature-button-format sig-lines) "signature"
)))))) indent
(format notmuch-show-signature-button-format sig-lines)
)))))))
(defun notmuch-show-markup-part (beg end depth) (defun notmuch-show-markup-part (beg end depth)
(if (re-search-forward notmuch-show-part-begin-regexp nil t) (if (re-search-forward notmuch-show-part-begin-regexp nil t)