From: yamaoka <yamaoka>
Date: Wed, 26 Jun 2002 22:27:04 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_8-00-quimby~41
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2e891764c9da0adc04770b32d490321a83419c64;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 65bc8b6..87b5cdb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-06-26  Kai Gro,b_(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+	* message.el (message-font-lock-keywords): Revert 2002-06-22
+	change.
+
 2002-06-24  Kai Gro,b_(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
 	* message.el (message-font-lock-keywords): Put colon in header
diff --git a/lisp/message.el b/lisp/message.el
index 2528999..d5b304c 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1170,27 +1170,26 @@ candidates:
 (defvar message-font-lock-keywords
   (let ((content "[ \t]*\\(.+\\(\n[ \t].*\\)*\\)\n?"))
     `((,(concat "^\\([Tt]o:\\)" content)
-       (1 (if (message-point-in-header-p) 'message-header-name-face))
-       (2 (if (message-point-in-header-p) 'message-header-to-face) nil t))
+       (1 'message-header-name-face)
+       (2 'message-header-to-face nil t))
       (,(concat "^\\([GBF]?[Cc][Cc]:\\|[Rr]eply-[Tt]o:\\|"
 		"[Mm]ail-[Cc]opies-[Tt]o:\\|"
 		"[Mm]ail-[Rr]eply-[Tt]o:\\|"
 		"[Mm]ail-[Ff]ollowup-[Tt]o:\\)" content)
-       (1 (if (message-point-in-header-p) 'message-header-name-face))
-       (2 (if (message-point-in-header-p) 'message-header-cc-face) nil t))
+       (1 'message-header-name-face)
+       (2 'message-header-cc-face nil t))
       (,(concat "^\\([Ss]ubject:\\)" content)
-       (1 (if (message-point-in-header-p) 'message-header-name-face))
-       (2 (if (message-point-in-header-p) 'message-header-subject-face) nil t))
+       (1 'message-header-name-face)
+       (2 'message-header-subject-face nil t))
       (,(concat "^\\([Nn]ewsgroups:\\|Followup-[Tt]o:\\)" content)
-       (1 (if (message-point-in-header-p) 'message-header-name-face))
-       (2 (if (message-point-in-header-p) 'message-header-newsgroups-face)
-	  nil t))
+       (1 'message-header-name-face)
+       (2 'message-header-newsgroups-face nil t))
       (,(concat "^\\([A-Z][^: \n\t]+:\\)" content)
-       (1 (if (message-point-in-header-p) 'message-header-name-face))
-       (2 (if (message-point-in-header-p) 'message-header-other-face) nil t))
-      (,(concat "^\\(X-[A-Za-z0-9-]+\\|In-Reply-To\\):" content)
-       (1 (if (message-point-in-header-p) 'message-header-name-face))
-       (2 (if (message-point-in-header-p) 'message-header-name-face)))
+       (1 'message-header-name-face)
+       (2 'message-header-other-face nil t))
+      (,(concat "^\\(X-[A-Za-z0-9-]+:\\|In-Reply-To:\\)" content)
+       (1 'message-header-name-face)
+       (2 'message-header-name-face))
       ,@(if (and mail-header-separator
 		 (not (equal mail-header-separator "")))
 	    `((,(concat "^\\(" (regexp-quote mail-header-separator) "\\)$")