[Emacs-diffs] Changes to emacs/lisp/gnus/nntp.el

[Miles Bader]

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)))