/[emacs]/emacs/lisp/url/url-news.el
ViewVC logotype

Diff of /emacs/lisp/url/url-news.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3.2.5 by miles, Mon Oct 25 04:22:24 2004 UTC revision 1.3.2.6 by miles, Thu Nov 4 13:12:41 2004 UTC
# Line 38  Line 38 
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)

Legend:
Removed from v.1.3.2.5  
changed lines
  Added in v.1.3.2.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26