Synch to No Gnus 200506160601, and

[elisp/gnus.git-] / lisp / gnus-ofsetup.el

diff --git a/lisp/gnus-ofsetup.el b/lisp/gnus-ofsetup.el
index 839db29..afbce50 100644 (file)
--- a/lisp/gnus-ofsetup.el
+++ b/lisp/gnus-ofsetup.el
@@ -468,7 +468,7 @@ mail source specifier \e$B$H$+>e5-$N$h$&$J%-!<%o!<%I$K$D$$$F$b$C$H$h$/\e(B
       ;; Create a list of mail source specifiers.
       (setq num-of-address
            (read-from-minibuffer (gnus-ofsetup-gettext 'setup-11)))
-      (setq i (setq n (string-to-int num-of-address)))
+      (setq i (setq n (string-to-number num-of-address)))
       ;;
       (while (> i 0)
        (let* ((j (- n (1- i)))
@@ -501,7 +501,7 @@ mail source specifier \e$B$H$+>e5-$N$h$&$J%-!<%o!<%I$K$D$$$F$b$C$H$h$/\e(B
                          exec-directory "movemail"))
              (setq args (read-from-minibuffer
                          (format "<%d of %d> %s" j n
-                                 (gnus-ofsetup-gettext 'setup-18) "-pf")))
+                                 (gnus-ofsetup-gettext 'setup-18)) "-pf"))
              (setq program (format "%s %s %s %s %s"
                                    prog args "po:%u" "%t" "%p"))))
          (when (string= type "imap")