Synch with Oort Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dd0cb8b..4b1c73f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2002-08-14  Katsumi Yamaoka <yamaoka@jpl.org>
+
+       * message.el (message-font-lock-keywords): Refer to the value for
+       `message-cite-prefix-regexp' dynamically.
+
+2002-08-13  Katsumi Yamaoka <yamaoka@jpl.org>
+
+       * gnus-art.el (gnus-decode-header-methods): Doc fix.
+
 2002-08-12  Simon Josefsson  <jas@extundo.com>
 
        * imap.el (imap-shell-open): Allow non-list `imap-shell-program'.

diff --git a/lisp/message.el b/lisp/message.el
index e789a75..f43369d 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1219,7 +1219,11 @@ candidates:
            `((,(concat "^\\(" (regexp-quote mail-header-separator) "\\)$")
               1 'message-separator-face))
          nil)
-      (,(concat "^\\(" message-cite-prefix-regexp "\\).*")
+      (,(lambda (limit)
+         (re-search-forward (concat "^\\("
+                                    message-cite-prefix-regexp
+                                    "\\).*")
+                            limit t))
        (0 'message-cited-text-face))
       (,mime-edit-tag-regexp
        (0 'message-mml-face))))