diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-04-17 15:54:45 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-04-17 15:54:45 +0000 |
| commit | b795df2b32f8bb05e748b8694f48606b0ffe3f1c (patch) | |
| tree | d9ec497502251cf44bd3256f7fba73625634811e /lisp/mail | |
| parent | 99ef737304f9976dd8f6955cbb689a26da5298bd (diff) | |
| download | emacs-b795df2b32f8bb05e748b8694f48606b0ffe3f1c.tar.gz | |
(mail-font-lock-keywords): Don't fontify subject text.
Don't fontify the text of a citation.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/sendmail.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index af1fca1b1da..fb2760b3bde 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -366,7 +366,9 @@ actually occur.") (list '("^\\(To\\|Newsgroups\\):" . font-lock-function-name-face) '("^\\(B?CC\\|Reply-to\\|Mail-\\(reply\\|followup\\)-to\\):" . font-lock-keyword-face) '("^\\(Subject:\\)[ \t]*\\(.+\\)?" - (1 font-lock-comment-face) (2 font-lock-type-face nil 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 . (let ((separator (if (zerop (length mail-header-separator)) @@ -380,8 +382,7 @@ actually occur.") "\\(" cite-chars "[ \t]*\\)\\)+" "\\(.*\\)") (beginning-of-line) (end-of-line) - (2 font-lock-constant-face nil t) - (4 font-lock-comment-face nil t))) + (3 font-lock-comment-face nil t))) '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*\\(\n[ \t]+.*\\)*$" . font-lock-string-face)))) "Additional expressions to highlight in Mail mode.") |