From: czkmt <czkmt>
Date: Sun, 12 Dec 1999 08:59:01 +0000 (+0000)
Subject: (mail-source-fetch-imap): Each temporary buffer name must be specific
X-Git-Tag: t-gnus-6_14_0-11~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=121370aac2feefc47b44b3eb16790ebe24369795;p=elisp%2Fgnus.git-

(mail-source-fetch-imap): Each temporary buffer name must be specific
to its mail source.
---

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index 8165fc1..3cf7425 100644
--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -508,7 +508,8 @@ 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 " *imap source*"))
+	  (buf (get-buffer-create
+		(format " *imap source %s:%s:%s *" server user mailbox)))
 	  (mail-source-string (format "imap:%s:%s" server mailbox))
 	  remove)
       (if (and (imap-open server port stream authentication buf)