From fc2e9bcbf80b545dfac9290538be8d746b17bac8 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 24 Apr 2005 21:32:28 +0000 Subject: [PATCH] (rmail-font-lock-keywords): Match any number of citation markers at start of each line. --- lisp/mail/rmail.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) 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.") -- 2.39.2