Mercurial > emacs
changeset 61815:3e72302e1d5a
(mail-font-lock-keywords): Match any number of
citation markers at start of each line.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 24 Apr 2005 21:32:59 +0000 |
| parents | edcdb077c4c1 |
| children | ad8d904ee067 |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 4 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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.")