Mercurial > emacs
changeset 61597:bebf790f4c99
(mail-font-lock-keywords): Don't fontify subject text.
Don't fontify the text of a citation.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 17 Apr 2005 15:54:45 +0000 |
| parents | 164ca32df6ab |
| children | b543e1be9df2 |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Sun Apr 17 15:50:48 2005 +0000 +++ b/lisp/mail/sendmail.el Sun Apr 17 15:54:45 2005 +0000 @@ -366,7 +366,9 @@ (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 @@ "\\(" 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.")