(mail-font-lock-keywords): Don't fontify subject text.

Don't fontify the text of a citation.

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.")