Mercurial > emacs

diff lisp/gnus/imap.el @ 66564:68bb9e8a5390

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* imap.el (imap-open): Handle case where buffer is a buffer object.
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 30 Oct 2005 20:34:53 +0000
parents 9082bf778ad8
children 28264c86d408
line wrap: on
line diff
--- a/lisp/gnus/imap.el	Sun Oct 30 20:08:09 2005 +0000
+++ b/lisp/gnus/imap.el	Sun Oct 30 20:34:53 2005 +0000
@@ -1038,8 +1038,11 @@
 			   stream))
 		      ;; We're done, kill the first connection
 		      (imap-close buffer)
-		      (kill-buffer buffer)
-		      (rename-buffer 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)