X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-move.el;h=6bdf14cf14618c9a2d26a0cc64c9b4061dbb0c8c;hb=48bc94c8a55fd8d5f6870c93d7c7bfa19abb34db;hp=c42ad916726e00cfe0356b8fd63a18fa7d6d76b4;hpb=03551fdba7d496a4ff418d39f289057921bfe4e4;p=gnus

diff --git a/lisp/gnus-move.el b/lisp/gnus-move.el
index c42ad9167..6bdf14cf1 100644
--- a/lisp/gnus-move.el
+++ b/lisp/gnus-move.el
@@ -25,11 +25,10 @@
 
 ;;; Code:
 
-(require 'gnus-load)
+(require 'gnus)
 (require 'gnus-start)
 (require 'gnus-int)
 (require 'gnus-range)
-(require 'gnus)
 
 ;;;
 ;;; Moving by comparing Message-ID's.
@@ -40,7 +39,7 @@
   "Move from FROM-SERVER to TO-SERVER.
 Update the .newsrc.eld file to reflect the change of nntp server."
   (interactive
-   (list gnus-select-method (gnus-read-server "Move to method: ")))
+   (list gnus-select-method (gnus-read-method "Move to method: ")))
   
   ;; First start Gnus.
   (let ((gnus-activate-level 0)
@@ -56,7 +55,7 @@ Update the .newsrc.eld file to reflect the change of nntp server."
 	(when (gnus-group-native-p (gnus-info-group info))
 	  (gnus-move-group-to-server info from-server to-server))))))
 
-(defun gnus-move-group-to-server (info from-server to-server)	    
+(defun gnus-move-group-to-server (info from-server to-server)
   "Move group INFO from FROM-SERVER to TO-SERVER."
   (let ((group (gnus-info-group info))
 	to-active hashtb type mark marks
@@ -152,7 +151,7 @@ Update the .newsrc.eld file to reflect the change of nntp server."
   (interactive
    (let ((info (gnus-get-info (gnus-group-group-name))))
      (list info (gnus-find-method-for-group (gnus-info-group info))
-	   (gnus-read-server (format "Move group %s to method: " 
+	   (gnus-read-method (format "Move group %s to method: " 
 				     (gnus-info-group info))))))
   (save-excursion
     (gnus-move-group-to-server info from-server to-server)