* message.el (message-cite-prefix-regexp): Use text-mode-syntax-table.

	(message-mode-syntax-table): Move back the previous position.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c7f2682..324a680 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-01-30  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * message.el (message-cite-prefix-regexp): Use text-mode-syntax-table.
+       (message-mode-syntax-table): Move back the previous position.
+
        * nnagent.el (nnagent-retrieve-headers): Use gnus-sorted-difference.
 
        * gnus-agent.el (gnus-agent-retrieve-headers): Use
@@ -21,7 +24,7 @@
        (gnus-sorted-ndifference): New function.
        (gnus-sorted-nintersection): Rename from
        gnus-set-sorted-intersection.
-       (gnus-sorted-nunion): Rename from gnus-sorted-nunion.
+       (gnus-sorted-nunion): Rename from gnus-set-sorted-union.
        (gnus-list-range-difference): Rename from
        gnus-inverse-list-range-intersection.
        (gnus-inverse-list-range-intersection): Use defalias.

diff --git a/lisp/message.el b/lisp/message.el
index 8f299f4..0fac0ac 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -346,21 +346,13 @@ The provided functions are:
   :group 'message-insertion
   :type 'regexp)
 
-(defvar message-mode-syntax-table
-  (let ((table (copy-syntax-table text-mode-syntax-table)))
-    (modify-syntax-entry ?% ". " table)
-    (modify-syntax-entry ?> ". " table)
-    (modify-syntax-entry ?< ". " table)
-    table)
-  "Syntax table used while in Message mode.")
-
 (defcustom message-cite-prefix-regexp
   (if (string-match "[[:digit:]]" "1") ;; support POSIX?
       "\\([ \t]*[-_.[:word:]]+>+\\|[ \t]*[]>»|:}+]\\)+"
     ;; ?-, ?_ or ?. MUST NOT be in syntax entry w.
     (let ((old-table (syntax-table))
          non-word-constituents)
-      (set-syntax-table message-mode-syntax-table)
+      (set-syntax-table text-mode-syntax-table)
       (setq non-word-constituents
            (concat
             (if (string-match "\\w" "-")  "" "-")
@@ -836,6 +828,14 @@ candidates:
 ;;; Internal variables.
 ;;; Well, not really internal.
 
+(defvar message-mode-syntax-table
+  (let ((table (copy-syntax-table text-mode-syntax-table)))
+    (modify-syntax-entry ?% ". " table)
+    (modify-syntax-entry ?> ". " table)
+    (modify-syntax-entry ?< ". " table)
+    table)
+  "Syntax table used while in Message mode.")
+
 (defface message-header-to-face
   '((((class color)
       (background dark))