(mail-source-fetch-imap): Don't create multiple temporary buffers, and

don't kill one.

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index ccbfccc..8165fc1 100644 (file)
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -508,7 +508,7 @@ If ARGS, PROMPT is used as an argument to `format'."
   "Fetcher for imap sources."
   (mail-source-bind (imap source)
     (let ((found 0)
-         (buf (get-buffer-create (generate-new-buffer-name " *imap source*")))
+         (buf (get-buffer-create " *imap source*"))
          (mail-source-string (format "imap:%s:%s" server mailbox))
          remove)
       (if (and (imap-open server port stream authentication buf)
@@ -537,7 +537,6 @@ If ARGS, PROMPT is used as an argument to `format'."
            (imap-close buf))
        (imap-close buf)
        (error (imap-error-text buf)))
-      (kill-buffer buf)
       found)))
 
 (eval-and-compile