Index: emacs/lisp/gnus/nntp.el
diff -c emacs/lisp/gnus/nntp.el:1.25 emacs/lisp/gnus/nntp.el:1.26
*** emacs/lisp/gnus/nntp.el:1.25 Mon May 30 17:13:58 2005
--- emacs/lisp/gnus/nntp.el Wed Jun 1 05:07:06 2005
***************
*** 1128,1134 ****
(nntp-kill-buffer pbuffer))
(when (and (buffer-name pbuffer)
process)
! (process-kill-without-query process)
(if (and (nntp-wait-for process "^2.*\n" buffer nil t)
(memq (process-status process) '(open run)))
(prog1
--- 1128,1134 ----
(nntp-kill-buffer pbuffer))
(when (and (buffer-name pbuffer)
process)
! (gnus-set-process-query-on-exit-flag process nil)
(if (and (nntp-wait-for process "^2.*\n" buffer nil t)
(memq (process-status process) '(open run)))
(prog1
***************
*** 1162,1168 ****
(format-spec-make
?s nntp-address
?p nntp-port-number)))))
! (process-kill-without-query proc)
(save-excursion
(set-buffer buffer)
(let ((nntp-connection-alist (list proc buffer nil)))
--- 1162,1168 ----
(format-spec-make
?s nntp-address
?p nntp-port-number)))))
! (gnus-set-process-query-on-exit-flag proc nil)
(save-excursion
(set-buffer buffer)
(let ((nntp-connection-alist (list proc buffer nil)))
***************
*** 1173,1179 ****
(defun nntp-open-tls-stream (buffer)
(let ((proc (open-tls-stream "nntpd" buffer nntp-address nntp-port-number)))
! (process-kill-without-query proc)
(save-excursion
(set-buffer buffer)
(let ((nntp-connection-alist (list proc buffer nil)))
--- 1173,1179 ----
(defun nntp-open-tls-stream (buffer)
(let ((proc (open-tls-stream "nntpd" buffer nntp-address nntp-port-number)))
! (gnus-set-process-query-on-exit-flag proc nil)
(save-excursion
(set-buffer buffer)
(let ((nntp-connection-alist (list proc buffer nil)))
_______________________________________________
Emacs-diffs mailing list
Emacs-diffs@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-diffs
