From b795df2b32f8bb05e748b8694f48606b0ffe3f1c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 17 Apr 2005 15:54:45 +0000 Subject: [PATCH] (mail-font-lock-keywords): Don't fontify subject text. Don't fontify the text of a citation. --- lisp/mail/sendmail.el | 7 ++++--- 1 file 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.") -- 2.39.2