# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1113753285 0
# Node ID bebf790f4c991b62d3472b60ed3d77eeb533fbe1
# Parent  164ca32df6abd4f6db10188edac9f3c561231252
(mail-font-lock-keywords): Don't fontify subject text.
Don't fontify the text of a citation.

diff -r 164ca32df6ab -r bebf790f4c99 lisp/mail/sendmail.el
--- 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.")