X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-sum.el;h=2bb39af3fb867066337c537964f759f51e733482;hb=0007de6d40db139c025a8b2cba9ef04ee4837608;hp=82c2e97bc772963e17c689398c714fcd68381e9f;hpb=522de31f4825b05881703ea8d9e638db8c5321f4;p=gnus

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 82c2e97bc..2bb39af3f 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -9934,7 +9934,7 @@ ACTION can be either `move' (the default), `crosspost' or `copy'."
 
         ;;;!!!Why is this necessary?
 	(set-buffer gnus-summary-buffer)
-	
+
 	(when (eq action 'move)
 	  (save-excursion
 	    (gnus-summary-goto-subject article)
@@ -10004,7 +10004,7 @@ current group into whatever groups they are destined to.  In the
 latter case, they will be copied into the relevant groups."
   (interactive
    (list current-prefix-arg
-	 (let* ((methods (gnus-methods-using 'respool))
+	 (let* ((methods (mapcar #'car (gnus-methods-using 'respool)))
 		(methname
 		 (symbol-name (or gnus-summary-respool-default-method
 				  (car (gnus-find-method-for-group