(gnus-summary-cancel-article): Find the correct post-method.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2d9f7d4..9979fc8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * gnus-msg.el (gnus-discouraged-post-methods): New variable.
        (gnus-post-method): Use it.
+       (gnus-summary-cancel-article): Find the correct post-method.
 
        * gnus-soup.el (gnus-soup-send-packet): Via ... using ...
        * message.el (message-send-news): Ditto.

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 368b11c..98b94e4 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -672,7 +672,7 @@ post using the current select method."
   (let ((articles (gnus-summary-work-articles n))
        (message-post-method
         `(lambda (arg)
-           (gnus-post-method (not (eq symp 'a)) ,gnus-newsgroup-name)))
+           (gnus-post-method (eq ,symp 'a) ,gnus-newsgroup-name)))
        article)
     (while (setq article (pop articles))
       (when (gnus-summary-select-article t nil nil article)