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

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

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index fca28e265b8..d0b6d84741e 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -378,13 +378,12 @@ actually occur.")
 	    ;; 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.")