From: yamaoka <yamaoka>
Date: Wed, 22 Nov 2000 13:27:16 +0000 (+0000)
Subject: Synch with Gnus.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3547012b6fa52dc919b22bc5c3e5f6249e5611b8;p=elisp%2Fgnus.git-

Synch with Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 72d6610..0f178bc 100644
--- 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 6a5d2f5..03a33d0 100644
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -1582,7 +1582,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