Include the imap server name in the message for greater debuggability.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 026bb5e..9482eb3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/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/nnimap.el b/lisp/nnimap.el
index afa4bdf..36245af 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/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)