From 5d06f91d9812584c3dea5d59d6f8f48b8ea33064 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 10 Oct 2001 11:43:37 +0000 Subject: [PATCH] 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'). --- lisp/ChangeLog | 6 ++++++ lisp/message.el | 6 ++++-- 2 files changed, 10 insertions(+), 2 deletions(-) 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 + * 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 + * 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))) -- 1.7.10.4