From: yamaoka <yamaoka>
Date: Tue, 10 Jul 2001 12:55:21 +0000 (+0000)
Subject: * message.el (message-font-lock-keywords-2): Move definitions for cited
X-Git-Tag: t-gnus-6_15_4-04-quimby~15
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7098bf91c0627bf40f78b079ef270094d34a1037;p=elisp%2Fgnus.git-

* message.el (message-font-lock-keywords-2): Move definitions for cited
 texts and mml tags to `message-font-lock-keywords-1'.
---

diff --git a/ChangeLog b/ChangeLog
index 5832a89..dc6bbf6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-07-10  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* lisp/message.el (message-font-lock-keywords-2): Move definitions
+	for cited texts and mml tags to `message-font-lock-keywords-1'.
+
 2001-07-10  Katsuhiro Hermit Endo <hermit@koka-in.org>
 
 	* texi/gnus-ja.texi (Mail Group Commands): Fix a slight mistake.
diff --git a/lisp/message.el b/lisp/message.el
index f7b7f43..7e871b9 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1244,20 +1244,22 @@ See also the documentations for the following variables:
 		 (not (equal mail-header-separator "")))
 	    `((,(concat "^\\(" (regexp-quote mail-header-separator) "\\)$")
 	       1 'message-separator-face))
-	  nil))))
+	  nil)
+      (,(concat "^\\(" message-cite-prefix-regexp "\\).*")
+       (0 'message-cited-text-face))
+      ("<#/?\\(multipart\\|part\\|external\\|mml\\).*>"
+       (0 'message-mml-face))))
+  "Additional expressions to highlight in Message mode.")
 
 (defvar message-font-lock-keywords-2
   (append message-font-lock-keywords-1
 	  `((message-font-lock-cited-text-matcher
 	     (1 'message-cited-text-face)
-	     (2 'message-cited-text-face))
-	    (,(concat "^\\(" message-cite-prefix-regexp "\\).*")
-	     (0 'message-cited-text-face))
-	    ("<#/?\\(multipart\\|part\\|external\\|mml\\).*>"
-	     (0 'message-mml-face)))))
+	     (2 'message-cited-text-face))))
+  "Auxiliary expressions to highlight in Message mode.")
 
 (defvar message-font-lock-keywords message-font-lock-keywords-2
-  "Additional expressions to highlight in Message mode.")
+  "Default expressions to highlight in Message mode.")
 
 ;; XEmacs does it like this.  For Emacs, we have to set the
 ;; `font-lock-defaults' buffer-local variable.