From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 17 Apr 2005 15:54:45 +0000 (+0000)
Subject: (mail-font-lock-keywords): Don't fontify subject text.
X-Git-Tag: ttn-vms-21-2-B4~952
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b795df2b32f8bb05e748b8694f48606b0ffe3f1c;p=emacs.git

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