Mercurial > emacs
comparison lisp/mail/sendmail.el @ 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 | 8f94d9a1cbf4 |
children | cc4bd3fe9a9d 08185296b491 |
comparison
equal
deleted
inserted
replaced
61814:edcdb077c4c1 | 61815:3e72302e1d5a |
---|---|
376 (regexp-quote mail-header-separator)))) | 376 (regexp-quote mail-header-separator)))) |
377 (cons (concat "^" separator "$") 'font-lock-warning-face))) | 377 (cons (concat "^" separator "$") 'font-lock-warning-face))) |
378 ;; Use MATCH-ANCHORED to effectively anchor the regexp left side. | 378 ;; Use MATCH-ANCHORED to effectively anchor the regexp left side. |
379 `(,cite-chars | 379 `(,cite-chars |
380 (,(concat "\\=[ \t]*" | 380 (,(concat "\\=[ \t]*" |
381 "\\(\\([" cite-prefix "]+[" cite-suffix "]*\\)?" | 381 "\\(\\(\\([" cite-prefix "]+[" cite-suffix "]*\\)?" |
382 "\\(" cite-chars "[ \t]*\\)\\)+" | 382 "\\(" cite-chars "[ \t]*\\)\\)+\\)" |
383 "\\(.*\\)") | 383 "\\(.*\\)") |
384 (beginning-of-line) (end-of-line) | 384 (beginning-of-line) (end-of-line) |
385 (2 font-lock-comment-delimiter-face nil t) | 385 (1 font-lock-comment-delimiter-face nil t) |
386 (3 font-lock-comment-delimiter-face nil t) | 386 (5 font-lock-comment-face nil t))) |
387 (4 font-lock-comment-face nil t))) | |
388 '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*\\(\n[ \t]+.*\\)*$" | 387 '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*\\(\n[ \t]+.*\\)*$" |
389 . font-lock-string-face)))) | 388 . font-lock-string-face)))) |
390 "Additional expressions to highlight in Mail mode.") | 389 "Additional expressions to highlight in Mail mode.") |
391 | 390 |
392 | 391 |