* 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 5b6351a..bdf8434 100644 (file)
--- 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-09  Katsumi Yamaoka <yamaoka@jpl.org>
 
        * lisp/dgnushack.el: Add the parent directory of the directory

diff --git a/lisp/message.el b/lisp/message.el
index ee08f7b..9f62b75 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1235,20 +1235,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.