* url-imap.el (url-imap-open-host): Don't use

`string-to-int'. The port returned by `url-port'
is expected to be an integer.

* url-irc.el (url-irc): Ditto.

* url-news.el (url-news-open-host): Ditto.

* url-nfs.el (url-nfs-build-filename): Ditto.

lisp/url/ChangeLog

@@ -1,3 +1,15 @@
+2004-11-02  Masatake YAMATO  <jet@gyve.org>
+
+	* url-imap.el (url-imap-open-host): Don't use
+	`string-to-int'. The port returned by `url-port'
+	is expected to be an integer.
+
+	* url-irc.el (url-irc): Ditto.
+
+	* url-news.el (url-news-open-host): Ditto.
+
+	* url-nfs.el (url-nfs-build-filename): Ditto.
+
 2004-10-20  John Paul Wallington  <jpw@gnu.org>
 
 	* url-gw.el (url-gateway-nslookup-host):

lisp/url/url-imap.el

@@ -47,8 +47,6 @@
   (let ((imap-username user)
 	(imap-password pass)
 	(authenticator (if user 'login 'anonymous)))
-    (if (stringp port)
-	(setq port (string-to-int port)))
     (nnimap-open-server host
 			`((nnimap-server-port ,port)
 			  (nnimap-stream 'network)

lisp/url/url-irc.el

@@ -61,7 +61,7 @@ PASSWORD - What password to use"
 ;;;###autoload
 (defun url-irc (url)
   (let* ((host (url-host url))
-	 (port (string-to-int (url-port url)))
+	 (port (url-port url))
 	 (pass (url-password url))
 	 (user (url-user url))
 	 (chan (url-filename url)))

lisp/url/url-news.el

@@ -38,7 +38,7 @@
 (defun url-news-open-host (host port user pass)
   (if (fboundp 'nnheader-init-server-buffer)
       (nnheader-init-server-buffer))
-  (nntp-open-server host (list (string-to-int port)))
+  (nntp-open-server host (list port))
   (if (and user pass)
       (progn
 	(nntp-send-command "^.*\r?\n" "AUTHINFO USER" user)

lisp/url/url-nfs.el

@@ -62,7 +62,7 @@ Each can be used any number of times.")
 
 (defun url-nfs-build-filename (url)
   (let* ((host (url-host url))
-	 (port (string-to-int (url-port url)))
+	 (port (url-port url))
 	 (pass (url-password url))
 	 (user (url-user url))
 	 (file (url-filename url)))