/[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.7 by lh, Tue Oct 19 21:36:24 2004 UTC revision 1.8 by jet, Tue Nov 2 09:40:30 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.7  
changed lines
  Added in v.1.8

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