Mercurial > emacs
comparison lisp/url/url-imap.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 | a8fa7c632ee4 7a0245dd1848 |
comparison
equal
deleted
inserted
replaced
| 57885:539ce55481ef | 57886:60d07d8a52e1 |
|---|---|
| 45 (if (fboundp 'nnheader-init-server-buffer) | 45 (if (fboundp 'nnheader-init-server-buffer) |
| 46 (nnheader-init-server-buffer)) | 46 (nnheader-init-server-buffer)) |
| 47 (let ((imap-username user) | 47 (let ((imap-username user) |
| 48 (imap-password pass) | 48 (imap-password pass) |
| 49 (authenticator (if user 'login 'anonymous))) | 49 (authenticator (if user 'login 'anonymous))) |
| 50 (if (stringp port) | |
| 51 (setq port (string-to-int port))) | |
| 52 (nnimap-open-server host | 50 (nnimap-open-server host |
| 53 `((nnimap-server-port ,port) | 51 `((nnimap-server-port ,port) |
| 54 (nnimap-stream 'network) | 52 (nnimap-stream 'network) |
| 55 (nnimap-authenticator ,authenticator))))) | 53 (nnimap-authenticator ,authenticator))))) |
| 56 | 54 |