Synch with Oort Gnus:

* message.el (message-send-news): Don't modify the value of
 `message-syntax-checks' if it is not a list (possibly it is
 `dont-check-for-anything-just-trust-me').

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 83642d8..1e6494b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 2001-10-10  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+       * message.el (message-send-news): Don't modify the value of
+       `message-syntax-checks' if it is not a list (possibly it is
+       `dont-check-for-anything-just-trust-me').
+       
+2001-10-10  Katsumi Yamaoka  <yamaoka@jpl.org>
+
        * gnus-group.el (gnus-group-name-charset-group-alist): Use
        `find-coding-system' for XEmacs to check whether the coding-system
        `utf-8' is available.

diff --git a/lisp/message.el b/lisp/message.el
index b4c62c9..667ad86 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3302,7 +3302,8 @@ This sub function is for exclusive use of `message-send-news'."
                    (list (cons "Followup-To" followup-field-charset)))
                  mime-field-encoding-method-alist))
         (message-syntax-checks
-         (if arg
+         (if (and arg
+                  (listp message-syntax-checks))
              (cons '(existing-newsgroups . disabled)
                    message-syntax-checks)
            message-syntax-checks))
@@ -3316,7 +3317,8 @@ This sub function is for exclusive use of `message-send-news'."
       (run-hooks 'message-header-hook))
     ;; Note: This check will be disabled by the ".*" default value for
     ;; gnus-group-name-charset-group-alist. -- Pa 2001-10-07.
-    (when group-field-charset
+    (when (and group-field-charset
+              (listp message-syntax-checks))
       (setq message-syntax-checks
            (cons '(valid-newsgroups . disabled)
                  message-syntax-checks)))