*** empty log message ***

[gnus] / lisp / gnus-move.el

diff --git a/lisp/gnus-move.el b/lisp/gnus-move.el
index c42ad91..6bdf14c 100644 (file)
--- 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)