nnimap.el (nnimap-wait-for-response): Include the imap server name in the message for greater debuggability.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 316e266c5e4..93ceeebf0c1 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2012-01-30  Lars Ingebrigtsen  <larsi@gnus.org>
+
+        * nnimap.el (nnimap-wait-for-response): Include the imap server name in
+        the message for greater debuggability.
+
 2012-01-28  Lars Ingebrigtsen  <larsi@gnus.org>
 
         * mm-view.el (mm-display-inline-fontify): Bind `font-lock-support-mode'
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index afa4bdf3dbd..36245af4bc4 100644
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -1738,7 +1738,8 @@ textual parts.")
                         (not (looking-at (format "%d .*\n" sequence)))))
             (when messagep
               (nnheader-message-maybe
-               7 "nnimap read %dk" (/ (buffer-size) 1000)))
+               7 "nnimap read %dk from %s" (/ (buffer-size) 1000)
+               nnimap-address))
             (nnheader-accept-process-output process)
             (goto-char (point-max)))
           openp)