/[emacs]/emacs/lisp/gnus/nntp.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nntp.el

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

revision 1.25 by miles, Mon May 30 17:13:58 2005 UTC revision 1.26 by miles, Wed Jun 1 05:07:06 2005 UTC
# Line 1128  password contained in '~/.nntp-authinfo' Line 1128  password contained in '~/.nntp-authinfo'
1128        (nntp-kill-buffer pbuffer))        (nntp-kill-buffer pbuffer))
1129      (when (and (buffer-name pbuffer)      (when (and (buffer-name pbuffer)
1130                 process)                 process)
1131        (process-kill-without-query process)        (gnus-set-process-query-on-exit-flag process nil)
1132        (if (and (nntp-wait-for process "^2.*\n" buffer nil t)        (if (and (nntp-wait-for process "^2.*\n" buffer nil t)
1133                 (memq (process-status process) '(open run)))                 (memq (process-status process) '(open run)))
1134            (prog1            (prog1
# Line 1162  password contained in '~/.nntp-authinfo' Line 1162  password contained in '~/.nntp-authinfo'
1162                                             (format-spec-make                                             (format-spec-make
1163                                              ?s nntp-address                                              ?s nntp-address
1164                                              ?p nntp-port-number)))))                                              ?p nntp-port-number)))))
1165      (process-kill-without-query proc)      (gnus-set-process-query-on-exit-flag proc nil)
1166      (save-excursion      (save-excursion
1167        (set-buffer buffer)        (set-buffer buffer)
1168        (let ((nntp-connection-alist (list proc buffer nil)))        (let ((nntp-connection-alist (list proc buffer nil)))
# Line 1173  password contained in '~/.nntp-authinfo' Line 1173  password contained in '~/.nntp-authinfo'
1173    
1174  (defun nntp-open-tls-stream (buffer)  (defun nntp-open-tls-stream (buffer)
1175    (let ((proc (open-tls-stream "nntpd" buffer nntp-address nntp-port-number)))    (let ((proc (open-tls-stream "nntpd" buffer nntp-address nntp-port-number)))
1176      (process-kill-without-query proc)      (gnus-set-process-query-on-exit-flag proc nil)
1177      (save-excursion      (save-excursion
1178        (set-buffer buffer)        (set-buffer buffer)
1179        (let ((nntp-connection-alist (list proc buffer nil)))        (let ((nntp-connection-alist (list proc buffer nil)))

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

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