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))) |