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

[Chong Yidong]

Index: emacs/lisp/gnus/imap.el
diff -c emacs/lisp/gnus/imap.el:1.24 emacs/lisp/gnus/imap.el:1.25
*** emacs/lisp/gnus/imap.el:1.24        Tue Oct 25 23:34:40 2005
--- emacs/lisp/gnus/imap.el     Sun Oct 30 20:34:53 2005
***************
*** 1038,1045 ****
                           stream))
                      ;; We're done, kill the first connection
                      (imap-close buffer)
!                     (kill-buffer buffer)
!                     (rename-buffer buffer)
                      (message "imap: Reconnecting with stream `%s'...done"
                               stream)
                      (setq imap-stream stream)
--- 1038,1048 ----
                           stream))
                      ;; We're done, kill the first connection
                      (imap-close buffer)
!                     (let ((name (if (stringp buffer)
!                                     buffer
!                                   (buffer-name buffer))))
!                       (kill-buffer buffer)
!                       (rename-buffer name))
                      (message "imap: Reconnecting with stream `%s'...done"
                               stream)
                      (setq imap-stream stream)