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