2000-11-22 dme@dme.org

	* imap.el (imap-wait-for-tag): Message read info.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b5eae59..0e1c675 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-22  dme@dme.org
+
+       * imap.el (imap-wait-for-tag): Message read info.
+
 2000-11-21 20:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * mml2015.el (mml2015-mailcrypt-encrypt): Ensure the part is encrypted.

diff --git a/lisp/imap.el b/lisp/imap.el
index 57dcfc4..828301f 100644 (file)
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -1595,7 +1595,12 @@ on failure."
                (< imap-reached-tag tag))
       (or (and (not (memq (process-status imap-process) '(open run)))
               (sit-for 1))
-         (accept-process-output imap-process 1)))
+         (let ((len (/ (point-max) 1024))
+               message-log-max)
+           (unless (< len 10)
+             (message "imap read: %dk" len))
+           (accept-process-output imap-process 1))))
+    (message "")
     (or (assq tag imap-failed-tags)
        (if imap-continuation
            'INCOMPLETE