From: keiichi <keiichi>
Date: Tue, 25 Dec 2001 03:39:29 +0000 (+0000)
Subject: (message-cancel-news): Could not cancel article, fixed.
X-Git-Tag: nana-gnus-7_1_0_27~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f4dc65143f0261fb0a5a3a92882f000275ffaf77;p=elisp%2Fgnus.git-

(message-cancel-news): Could not cancel article, fixed.
---

diff --git a/lisp/message.el b/lisp/message.el
index 8a4f9cc..0f1eeaf 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4172,8 +4172,11 @@ If ARG, allow editing of the cancellation message."
 	(unless arg
 	  (message "Canceling your article...")
 	  (if (let ((message-syntax-checks
-		     'dont-check-for-anything-just-trust-me))
-		(funcall message-send-news-function))
+		     'dont-check-for-anything-just-trust-me)
+		    (method (if (message-functionp message-post-method)
+				(funcall message-post-method arg)
+			      message-post-method)))
+		(funcall message-send-news-function method))
 	      (message "Canceling your article...done"))
 	  (kill-buffer buf))))))