38 |
(defun url-news-open-host (host port user pass) |
(defun url-news-open-host (host port user pass) |
39 |
(if (fboundp 'nnheader-init-server-buffer) |
(if (fboundp 'nnheader-init-server-buffer) |
40 |
(nnheader-init-server-buffer)) |
(nnheader-init-server-buffer)) |
41 |
(nntp-open-server host (list (string-to-int port))) |
(nntp-open-server host (list port)) |
42 |
(if (and user pass) |
(if (and user pass) |
43 |
(progn |
(progn |
44 |
(nntp-send-command "^.*\r?\n" "AUTHINFO USER" user) |
(nntp-send-command "^.*\r?\n" "AUTHINFO USER" user) |