Mercurial > emacs
changeset 57886:60d07d8a52e1
* 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.
| author | Masatake YAMATO <jet@gyve.org> |
|---|---|
| date | Tue, 02 Nov 2004 09:40:30 +0000 |
| parents | 539ce55481ef |
| children | 61d89edff420 |
| files | lisp/url/ChangeLog lisp/url/url-imap.el lisp/url/url-irc.el lisp/url/url-news.el lisp/url/url-nfs.el |
| diffstat | 5 files changed, 15 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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):
--- 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)
--- 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)))
--- 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)
--- 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)))