mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
citation markers at start of each line.
This commit is contained in:
Richard M. Stallman 2005-04-24 21:32:28 +00:00
parent 4403a96955
commit fc2e9bcbf8
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/mail/rmail.el
View file

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