2001-07-27 11:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* message.el (message-check-news-header-syntax): Use
	message-post-method.
	(message-send-news): Bind message-post-method.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a144bcc..e072660 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-07-27 11:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * message.el (message-check-news-header-syntax): Use
+       message-post-method.
+       (message-send-news): Bind message-post-method.
+
 2001-07-27 07:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * mml.el (mml-tweak-type-alist): New.

diff --git a/lisp/message.el b/lisp/message.el
index aca33f5..d691ec9 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2711,7 +2711,8 @@ to find out how to use this."
              (cons '(valid-newsgroups . disabled)
                    message-syntax-checks)))
       (message-cleanup-headers)
-      (if (not (message-check-news-syntax))
+      (if (not (let ((message-post-method method))
+                (message-check-news-syntax)))
          nil
        (unwind-protect
            (save-excursion
@@ -2890,10 +2891,9 @@ to find out how to use this."
            (known-groups
             (mapcar (lambda (n) (gnus-group-real-name n))
                     (gnus-groups-from-server
-                     (cond ((equal gnus-post-method 'current)
-                            gnus-current-select-method)
-                           (gnus-post-method gnus-post-method)
-                           (t gnus-select-method)))))
+                     (if (message-functionp message-post-method)
+                         (funcall message-post-method)
+                       message-post-method))))
            errors)
        (while groups
         (unless (or (equal (car groups) "poster")