aboutsummaryrefslogtreecommitdiffhomepage
path: root/notmuch.el
diff options
context:
space:
mode:
authorGravatar Carl Worth <cworth@cworth.org>2009-12-11 15:31:10 -0800
committerGravatar Carl Worth <cworth@cworth.org>2009-12-11 15:54:53 -0800
commit2e3d07b8d50ecbc48cf2c40e0557201d42081ab9 (patch)
tree3f87f24c4767c433663da76935949e051dbfd960 /notmuch.el
parent8d2f19b896af55d256f970d71727e621255a58cb (diff)
emacs: Don't regard a manually indented '>' as introducing a citation.
In the message mentioned in the previous commit, an ASCII diagram was included in which '>' was used as the first non-whitespace character in a line. Notmuch previously (and mistakenly) regarded this as a citation. We fix this by only regarding a '>' in the first column of an email as introducing a citation.
Diffstat (limited to 'notmuch.el')
-rw-r--r--notmuch.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/notmuch.el b/notmuch.el
index 9ec89ca0..33e434f3 100644
--- a/notmuch.el
+++ b/notmuch.el
@@ -599,11 +599,13 @@ which this thread was originally shown."
(while (< (point) end)
(let ((beg-sub (point-marker))
(indent (make-string depth ? ))
- (citation "[[:space:]]*>"))
+ (citation ">"))
+ (move-to-column depth)
(if (looking-at citation)
(progn
(while (looking-at citation)
- (forward-line))
+ (forward-line)
+ (move-to-column depth))
(let ((overlay (make-overlay beg-sub (point)))
(invis-spec (make-symbol "notmuch-citation-region")))
(add-to-invisibility-spec invis-spec)