From: teranisi <teranisi>
Date: Wed, 6 Jun 2001 01:08:42 +0000 (+0000)
Subject: (elmo-pop3-process-filter): Show retrieve progress.
X-Git-Tag: wl-2_6-root~16
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=df6eabd626b3a4d8f31bed990dd4d94cf815ba77;p=elisp%2Fwanderlust.git

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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 51fefb8..e36c7b4 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2001-06-06  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-pop3.el (elmo-pop3-process-filter): Show retrieve progress.
+
 2001-03-27  Kenichi OKADA  <okada@opaopa.org>
 
 	* elmo-imap4.el (elmo-imap4-list-folders): Fixed problem when
diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el
index 7451f98..55a1f5d 100644
--- a/elmo/elmo-pop3.el
+++ b/elmo/elmo-pop3.el
@@ -137,7 +137,8 @@
   (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)))