From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 24 Apr 2005 21:32:28 +0000 (+0000)
Subject: (rmail-font-lock-keywords): Match any number of
X-Git-Tag: ttn-vms-21-2-B4~762
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fc2e9bcbf80b545dfac9290538be8d746b17bac8;p=emacs.git

(rmail-font-lock-keywords): Match any number of
citation markers at start of each line.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 8bb289ffca3..8ba9408a76f 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -662,13 +662,12 @@ The first parenthesized expression should match the MIME-charset name.")
 	    ;; Use MATCH-ANCHORED to effectively anchor the regexp left side.
 	    `(,cite-chars
 	      (,(concat "\\=[ \t]*"
-			"\\(\\([" cite-prefix "]+[" cite-suffix "]*\\)?"
-			"\\(" cite-chars "[ \t]*\\)\\)+"
+			"\\(\\(\\([" cite-prefix "]+[" cite-suffix "]*\\)?"
+			"\\(" cite-chars "[ \t]*\\)\\)+\\)"
 			"\\(.*\\)")
 	       (beginning-of-line) (end-of-line)
-	       (2 font-lock-comment-delimiter-face nil t)
-	       (3 font-lock-comment-delimiter-face nil t)
-	       (4 font-lock-comment-face nil t)))
+	       (1 font-lock-comment-delimiter-face nil t)
+	       (5 font-lock-comment-face nil t)))
 	    '("^\\(X-[a-z0-9-]+\\|In-reply-to\\|Date\\):.*\\(\n[ \t]+.*\\)*$"
 	      . font-lock-string-face))))
   "Additional expressions to highlight in Rmail mode.")