Mercurial > emacs
comparison lisp/url/url-news.el @ 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 | 2954cb243379 |
children | 462374eda8a7 7a0245dd1848 |
comparison
equal
deleted
inserted
replaced
57885:539ce55481ef | 57886:60d07d8a52e1 |
---|---|
36 :group 'url) | 36 :group 'url) |
37 | 37 |
38 (defun url-news-open-host (host port user pass) | 38 (defun url-news-open-host (host port user pass) |
39 (if (fboundp 'nnheader-init-server-buffer) | 39 (if (fboundp 'nnheader-init-server-buffer) |
40 (nnheader-init-server-buffer)) | 40 (nnheader-init-server-buffer)) |
41 (nntp-open-server host (list (string-to-int port))) | 41 (nntp-open-server host (list port)) |
42 (if (and user pass) | 42 (if (and user pass) |
43 (progn | 43 (progn |
44 (nntp-send-command "^.*\r?\n" "AUTHINFO USER" user) | 44 (nntp-send-command "^.*\r?\n" "AUTHINFO USER" user) |
45 (nntp-send-command "^.*\r?\n" "AUTHINFO PASS" pass) | 45 (nntp-send-command "^.*\r?\n" "AUTHINFO PASS" pass) |
46 (if (not (nntp-server-opened host)) | 46 (if (not (nntp-server-opened host)) |