summaryrefslogtreecommitdiff
path: root/emacs/notmuch-show.el
diff options
context:
space:
mode:
authorDavid Edmondson <dme@dme.org>2010-02-15 16:56:15 +0100
committerCarl Worth <cworth@cworth.org>2010-04-07 12:02:35 -0700
commite95dac86f578f8c4da224409bab1bd2ba7c910f5 (patch)
treeef14da274fefd76ce830fab1e677b03d799a2186 /emacs/notmuch-show.el
parent84767fd5823b3b421be83000255951316e85be8c (diff)
notmuch.el: Colour cited regions and signatures with message-cited-text-face
Signed-off-by: Sebastian Spaeth <Sebastian@SSpaeth.de> (with fixup to avoid over-eager coloring of signatures).
Diffstat (limited to 'emacs/notmuch-show.el')
-rw-r--r--emacs/notmuch-show.el17
1 files changed, 10 insertions, 7 deletions
diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
index 1875fdc..589a737 100644
--- a/emacs/notmuch-show.el
+++ b/emacs/notmuch-show.el
@@ -679,6 +679,7 @@ is what to put on the button."
(let* ((cite-start (match-beginning 0))
(cite-end (match-end 0))
(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))
(goto-char cite-start)
(forward-line notmuch-show-citation-lines-prefix)
@@ -695,13 +696,15 @@ is what to put on the button."
(sig-end (match-end 0))
(sig-lines (1- (count-lines sig-start end))))
(if (<= sig-lines notmuch-show-signature-lines-max)
- (notmuch-show-region-to-button
- sig-start
- end
- "signature"
- indent
- (format notmuch-show-signature-button-format sig-lines)
- ))))))
+ (progn
+ (overlay-put (make-overlay sig-start end) 'face 'message-cited-text-face)
+ (notmuch-show-region-to-button
+ sig-start
+ end
+ "signature"
+ indent
+ (format notmuch-show-signature-button-format sig-lines)
+ )))))))
(defun notmuch-show-markup-part (beg end depth)
(if (re-search-forward notmuch-show-part-begin-regexp nil t)