diff options
| author | Simon Marshall <simon@gnu.org> | 1997-03-15 13:26:59 +0000 |
|---|---|---|
| committer | Simon Marshall <simon@gnu.org> | 1997-03-15 13:26:59 +0000 |
| commit | 7311869767c20fbcd9a3f9861173ede52b39d663 (patch) | |
| tree | a2d4eac4907f4cf277e1bc4cdb04d351f6287523 /lisp/mail/sendmail.el | |
| parent | c4a128a2e0991ccdcadf2104b723063ecc6d82f3 (diff) | |
| download | emacs-7311869767c20fbcd9a3f9861173ede52b39d663.tar.gz | |
Tweak font-lock-keywords
Diffstat (limited to 'lisp/mail/sendmail.el')
| -rw-r--r-- | lisp/mail/sendmail.el | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 1ac0e958fb4..8da44d991f9 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -215,20 +215,23 @@ actually occur.") (let* ((cite-chars "[>|}]") (cite-prefix "A-Za-z") (cite-suffix (concat cite-prefix "0-9_.@-`'\""))) - (list '("^To:" . font-lock-function-name-face) - '("^B?CC:\\|^Reply-to:" . font-lock-keyword-face) + (list '("^\\(To\\|Newsgroups\\):" . font-lock-function-name-face) + '("^\\(B?CC\\|Reply-to\\):" . font-lock-keyword-face) '("^\\(Subject:\\)[ \t]*\\(.+\\)?" (1 font-lock-comment-face) (2 font-lock-type-face nil t)) ;; Use EVAL to delay in case `mail-header-separator' gets changed. - '(eval cons (concat "^" (regexp-quote mail-header-separator) "$") - 'font-lock-comment-face) + '(eval . + (cons (concat "^" (regexp-quote mail-header-separator) "$") + 'font-lock-warning-face)) ;; Use MATCH-ANCHORED to effectively anchor the regexp left side. `(,cite-chars (,(concat "\\=[ \t]*" - "\\([" cite-prefix "]+[" cite-suffix "]*\\)?" - cite-chars ".*") + "\\(\\([" cite-prefix "]+[" cite-suffix "]*\\)?" + "\\(" cite-chars "[ \t]*\\)\\)+" + "\\(.*\\)") (beginning-of-line) (end-of-line) - (0 font-lock-reference-face))) + (2 font-lock-reference-face nil t) + (4 font-lock-comment-face nil t))) '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*" . font-lock-string-face)))) "Additional expressions to highlight in Mail mode.") |