From: czkmt <czkmt>
Date: Sat, 11 Dec 1999 03:30:01 +0000 (+0000)
Subject: (mail-source-fetch-imap): Don't create multiple temporary buffers, and
X-Git-Tag: t-gnus-6_14_0-11~13
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3f5709dff38c1f048cc20991b9493011b8cde1eb;p=elisp%2Fgnus.git-

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