X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-ofsetup.el;h=f3dd2686ce2ed6527c7e24e7e07a384857f9f0a0;hb=4cacb5f23eb830e6950dba987063f413977708d7;hp=839db29f97f0d88f60de5cd584ccd3673b6c14be;hpb=49d38b41c190eaab2cb34294fac7302a9c9ea353;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-ofsetup.el b/lisp/gnus-ofsetup.el
index 839db29..f3dd268 100644
--- a/lisp/gnus-ofsetup.el
+++ b/lisp/gnus-ofsetup.el
@@ -19,8 +19,8 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 ;;
 
 ;;; Commentary:
@@ -468,7 +468,7 @@ mail source specifier とか上記のようなキーワードについてもっとよく
       ;; 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 とか上記のようなキーワードについてもっとよく
 			  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")