? patch.txt
Index: ChangeLog
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/ChangeLog,v
retrieving revision 6.779
diff -u -r6.779 ChangeLog
--- ChangeLog	2001/10/19 14:58:54	6.779
+++ ChangeLog	2001/10/20 07:04:24
@@ -1,3 +1,9 @@
+2001-10-20  Matt Armstrong  <matt@lickey.com>
+
+	* gnus-sum.el (gnus-summary-move-article): Use
+	gnus-find-method-for-group, not gnus-group-method.
+	(gnus-read-move-group-name): Ditto.
+
 2001-10-19  Per Abrahamsen  <abraham@dina.kvl.dk>
 
 	* mm-decode.el (mm-default-directory): Fix customize type.
Index: gnus-sum.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-sum.el,v
retrieving revision 6.117
diff -u -r6.117 gnus-sum.el
--- gnus-sum.el	2001/10/18 19:49:05	6.117
+++ gnus-sum.el	2001/10/20 07:04:49
@@ -8021,7 +8021,7 @@
       (set (intern (format "gnus-current-%s-group" action)) to-newsgroup))
     (setq to-method (or select-method
 			(gnus-server-to-method
-			 (gnus-group-method to-newsgroup))))
+			 (gnus-find-method-for-group to-newsgroup))))
     ;; Check the method we are to move this article to...
     (unless (gnus-check-backend-function
 	     'request-accept-article (car to-method))
@@ -9960,7 +9960,8 @@
 					  (nreverse split-name))
 				  nil nil nil
 				  'gnus-group-history))))
-	 (to-method (gnus-server-to-method (gnus-group-method to-newsgroup))))
+	 (to-method (gnus-server-to-method
+		     (gnus-find-method-for-group to-newsgroup))))
     (when to-newsgroup
       (if (or (string= to-newsgroup "")
 	      (string= to-newsgroup prefix))