Mercurial > emacs
comparison lisp/gnus/imap.el @ 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 | 9082bf778ad8 |
children | 28264c86d408 |
comparison
equal
deleted
inserted
replaced
66563:50f828c2b337 | 66564:68bb9e8a5390 |
---|---|
1036 (message | 1036 (message |
1037 "imap: Reconnecting with stream `%s'...failed" | 1037 "imap: Reconnecting with stream `%s'...failed" |
1038 stream)) | 1038 stream)) |
1039 ;; We're done, kill the first connection | 1039 ;; We're done, kill the first connection |
1040 (imap-close buffer) | 1040 (imap-close buffer) |
1041 (kill-buffer buffer) | 1041 (let ((name (if (stringp buffer) |
1042 (rename-buffer buffer) | 1042 buffer |
1043 (buffer-name buffer)))) | |
1044 (kill-buffer buffer) | |
1045 (rename-buffer name)) | |
1043 (message "imap: Reconnecting with stream `%s'...done" | 1046 (message "imap: Reconnecting with stream `%s'...done" |
1044 stream) | 1047 stream) |
1045 (setq imap-stream stream) | 1048 (setq imap-stream stream) |
1046 (setq imap-capability nil) | 1049 (setq imap-capability nil) |
1047 (setq streams nil))) | 1050 (setq streams nil))) |