(nnimap-finish-retrieve-group-infos): Message while waiting for data.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fb086e7..029d98e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-10-04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 2010-10-04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 

+       * nnimap.el (nnimap-finish-retrieve-group-infos): Message while waiting
+       for data.
+

        * spam-report.el (spam-report-url-ping-plain): Don't query about
        killing the process.
 
        * spam-report.el (spam-report-url-ping-plain): Don't query about
        killing the process.
 

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 1785fd9..0be841a 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -977,7 +977,7 @@ textual parts.")
             (nnimap-possibly-change-group nil server))
     (with-current-buffer (nnimap-buffer)
       ;; Wait for the final data to trickle in.
             (nnimap-possibly-change-group nil server))
     (with-current-buffer (nnimap-buffer)
       ;; Wait for the final data to trickle in.

-      (when (nnimap-wait-for-response (cadar sequences))
+      (when (nnimap-wait-for-response (cadar sequences) t)

        ;; Now we should have all the data we need, no matter whether
        ;; we're QRESYNCING, fetching all the flags from scratch, or
        ;; just fetching the last 100 flags per group.
        ;; Now we should have all the data we need, no matter whether
        ;; we're QRESYNCING, fetching all the flags from scratch, or
        ;; just fetching the last 100 flags per group.


@@ -1254,7 +1254,7 @@ textual parts.")
                        (point-min))
                      t)))
       (when messagep
                        (point-min))
                      t)))
       (when messagep

-       (message "Read %dKB" (/ (buffer-size) 1000)))
+       (message "nnimap read %dk" (/ (buffer-size) 1000)))

       (nnheader-accept-process-output process)
       (goto-char (point-max)))
     openp))
       (nnheader-accept-process-output process)
       (goto-char (point-max)))
     openp))