Mercurial > emacs
changeset 66564:68bb9e8a5390
* 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 | 50f828c2b337 |
| children | 41ba10c5d8d9 |
| files | lisp/gnus/ChangeLog lisp/gnus/imap.el |
| diffstat | 2 files changed, 10 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sun Oct 30 20:08:09 2005 +0000 +++ b/lisp/gnus/ChangeLog Sun Oct 30 20:34:53 2005 +0000 @@ -1,3 +1,8 @@ +2005-10-30 Chong Yidong <cyd@stupidchicken.com> + + * imap.el (imap-open): Handle case where buffer is a buffer + object. + 2005-10-24 Eli Zaretskii <eliz@gnu.org> * pgg-def.el:
--- 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)