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

[Miles Bader]

Index: emacs/lisp/gnus/imap.el
diff -c emacs/lisp/gnus/imap.el:1.20 emacs/lisp/gnus/imap.el:1.21
*** emacs/lisp/gnus/imap.el:1.20        Sat Feb 19 13:24:16 2005
--- emacs/lisp/gnus/imap.el     Wed Jun  1 05:07:06 2005
***************
*** 640,646 ****
        (let* ((port (or port imap-default-ssl-port))
             (coding-system-for-read imap-coding-system-for-read)
             (coding-system-for-write imap-coding-system-for-write)
!            (process-connection-type nil)
             process)
        (when (progn
                (setq process (start-process
--- 640,650 ----
        (let* ((port (or port imap-default-ssl-port))
             (coding-system-for-read imap-coding-system-for-read)
             (coding-system-for-write imap-coding-system-for-write)
!            (process-connection-type imap-process-connection-type)
!            (set-process-query-on-exit-flag
!             (if (fboundp 'set-process-query-on-exit-flag)
!                 'set-process-query-on-exit-flag
!               'process-kill-without-query))
             process)
        (when (progn
                (setq process (start-process
***************
*** 650,656 ****
                                            (format-spec-make
                                             ?s server
                                             ?p (number-to-string port)))))
!               (process-kill-without-query process)
                process)
          (with-current-buffer buffer
            (goto-char (point-min))
--- 654,660 ----
                                            (format-spec-make
                                             ?s server
                                             ?p (number-to-string port)))))
!               (funcall set-process-query-on-exit-flag process nil)
                process)
          (with-current-buffer buffer
            (goto-char (point-min))