* elmo-pop3.el (elmo-pop3-process-filter): Show retrieve progress.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 8e79b6d..ad884e9 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,7 @@
 2001-06-06  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * elmo-pop3.el (elmo-pop3-process-filter): Show retrieve progress.
+
        * elmo.el (elmo-folder-reserve-status-p): New method.
 
        * elmo-shimbun.el (elmo-shimbun-headers-cache): Abolish.

diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el
index e89bfbb..71b1295 100644 (file)
--- a/elmo/elmo-pop3.el
+++ b/elmo/elmo-pop3.el
@@ -234,7 +234,8 @@ set as non-nil.")
   (save-excursion
     (set-buffer (process-buffer process))
     (goto-char (point-max))
-    (insert output)))
+    (insert output)
+    (message "Retrieving...(%d bytes)." (buffer-size))))
 
 (defun elmo-pop3-auth-user (session)
   (let ((process (elmo-network-session-process-internal session)))