# HG changeset patch
# User Masatake YAMATO <jet@gyve.org>
# Date 1099388430 0
# Node ID 60d07d8a52e17c49e9e4c780ae204c05a79dcabe
# Parent  539ce55481ef0952102bdfd0c941848d90278a54
* 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.

diff -r 539ce55481ef -r 60d07d8a52e1 lisp/url/ChangeLog
--- a/lisp/url/ChangeLog	Tue Nov 02 09:28:48 2004 +0000
+++ b/lisp/url/ChangeLog	Tue Nov 02 09:40:30 2004 +0000
@@ -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):
diff -r 539ce55481ef -r 60d07d8a52e1 lisp/url/url-imap.el
--- a/lisp/url/url-imap.el	Tue Nov 02 09:28:48 2004 +0000
+++ b/lisp/url/url-imap.el	Tue Nov 02 09:40:30 2004 +0000
@@ -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)
diff -r 539ce55481ef -r 60d07d8a52e1 lisp/url/url-irc.el
--- a/lisp/url/url-irc.el	Tue Nov 02 09:28:48 2004 +0000
+++ b/lisp/url/url-irc.el	Tue Nov 02 09:40:30 2004 +0000
@@ -61,7 +61,7 @@
 ;;;###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)))
diff -r 539ce55481ef -r 60d07d8a52e1 lisp/url/url-news.el
--- a/lisp/url/url-news.el	Tue Nov 02 09:28:48 2004 +0000
+++ b/lisp/url/url-news.el	Tue Nov 02 09:40:30 2004 +0000
@@ -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)
diff -r 539ce55481ef -r 60d07d8a52e1 lisp/url/url-nfs.el
--- a/lisp/url/url-nfs.el	Tue Nov 02 09:28:48 2004 +0000
+++ b/lisp/url/url-nfs.el	Tue Nov 02 09:40:30 2004 +0000
@@ -62,7 +62,7 @@
 
 (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)))