378 |
;; Use MATCH-ANCHORED to effectively anchor the regexp left side. |
;; Use MATCH-ANCHORED to effectively anchor the regexp left side. |
379 |
`(,cite-chars |
`(,cite-chars |
380 |
(,(concat "\\=[ \t]*" |
(,(concat "\\=[ \t]*" |
381 |
"\\(\\([" cite-prefix "]+[" cite-suffix "]*\\)?" |
"\\(\\(\\([" cite-prefix "]+[" cite-suffix "]*\\)?" |
382 |
"\\(" cite-chars "[ \t]*\\)\\)+" |
"\\(" cite-chars "[ \t]*\\)\\)+\\)" |
383 |
"\\(.*\\)") |
"\\(.*\\)") |
384 |
(beginning-of-line) (end-of-line) |
(beginning-of-line) (end-of-line) |
385 |
(2 font-lock-comment-delimiter-face nil t) |
(1 font-lock-comment-delimiter-face nil t) |
386 |
(3 font-lock-comment-delimiter-face nil t) |
(5 font-lock-comment-face nil t))) |
|
(4 font-lock-comment-face nil t))) |
|
387 |
'("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*\\(\n[ \t]+.*\\)*$" |
'("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*\\(\n[ \t]+.*\\)*$" |
388 |
. font-lock-string-face)))) |
. font-lock-string-face)))) |
389 |
"Additional expressions to highlight in Mail mode.") |
"Additional expressions to highlight in Mail mode.") |