(mail-font-lock-keywords): Match any number of

citation markers at start of each line.

1 files changed, 4 insertions, 5 deletions

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.")