From 121370aac2feefc47b44b3eb16790ebe24369795 Mon Sep 17 00:00:00 2001
From: czkmt <czkmt>
Date: Sun, 12 Dec 1999 08:59:01 +0000
Subject: [PATCH] (mail-source-fetch-imap): Each temporary buffer name must be
 specific to its mail source.

---
 lisp/mail-source.el |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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