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

Don't fontify the text of a citation.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index af1fca1b1da79baf71098089a3ee349c91823e12..fb2760b3bde10dc41ffdfc58985ba0d91b43d109 100644 (file)
--- 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.")