From: yamaoka <yamaoka>
Date: Wed, 10 Oct 2001 11:43:37 +0000 (+0000)
Subject: Synch with Oort Gnus:
X-Git-Tag: t-gnus-6_15_4-08-quimby-last-~49
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5d06f91d9812584c3dea5d59d6f8f48b8ea33064;p=elisp%2Fgnus.git-

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
--- 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
--- 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)))