From 3f5709dff38c1f048cc20991b9493011b8cde1eb Mon Sep 17 00:00:00 2001 From: czkmt Date: Sat, 11 Dec 1999 03:30:01 +0000 Subject: [PATCH] (mail-source-fetch-imap): Don't create multiple temporary buffers, and don't kill one. --- lisp/mail-source.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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 -- 1.7.10.4