# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1114378379 0
# Node ID 3e72302e1d5a886372ff777dd2db631b136b0e12
# Parent  edcdb077c4c18ba9bd5de257a3a715f8a5f176a3
(mail-font-lock-keywords): Match any number of
citation markers at start of each line.

diff -r edcdb077c4c1 -r 3e72302e1d5a lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Sun Apr 24 21:32:28 2005 +0000
+++ b/lisp/mail/sendmail.el	Sun Apr 24 21:32:59 2005 +0000
@@ -378,13 +378,12 @@
 	    ;; 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-Za-z0-9-]+\\|In-reply-to\\):.*\\(\n[ \t]+.*\\)*$"
 	      . font-lock-string-face))))
   "Additional expressions to highlight in Mail mode.")