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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 316e266c5e4ec93363d5bdf0afd0d7019a41b598..93ceeebf0c1982245afd7d29a31ef3785cbb04c8 100644 (file)
--- 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 afa4bdf3dbd9b2820a7a4c783aaf9389e88e299b..36245af4bc4627e34aadc6594586815451dcdb8c 100644 (file)
--- 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)