662 |
;; Use MATCH-ANCHORED to effectively anchor the regexp left side. |
;; Use MATCH-ANCHORED to effectively anchor the regexp left side. |
663 |
`(,cite-chars |
`(,cite-chars |
664 |
(,(concat "\\=[ \t]*" |
(,(concat "\\=[ \t]*" |
665 |
"\\(\\([" cite-prefix "]+[" cite-suffix "]*\\)?" |
"\\(\\(\\([" cite-prefix "]+[" cite-suffix "]*\\)?" |
666 |
"\\(" cite-chars "[ \t]*\\)\\)+" |
"\\(" cite-chars "[ \t]*\\)\\)+\\)" |
667 |
"\\(.*\\)") |
"\\(.*\\)") |
668 |
(beginning-of-line) (end-of-line) |
(beginning-of-line) (end-of-line) |
669 |
(2 font-lock-comment-delimiter-face nil t) |
(1 font-lock-comment-delimiter-face nil t) |
670 |
(3 font-lock-comment-delimiter-face nil t) |
(5 font-lock-comment-face nil t))) |
|
(4 font-lock-comment-face nil t))) |
|
671 |
'("^\\(X-[a-z0-9-]+\\|In-reply-to\\|Date\\):.*\\(\n[ \t]+.*\\)*$" |
'("^\\(X-[a-z0-9-]+\\|In-reply-to\\|Date\\):.*\\(\n[ \t]+.*\\)*$" |
672 |
. font-lock-string-face)))) |
. font-lock-string-face)))) |
673 |
"Additional expressions to highlight in Rmail mode.") |
"Additional expressions to highlight in Rmail mode.") |