From: teranisi <teranisi>
Date: Mon, 11 Jun 2001 01:12:33 +0000 (+0000)
Subject: * elmo-pop3.el (elmo-message-fetch-plugged): Fixed.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=caf4b3a195b7a14676a1c39d0a887f76eba6cefb;p=elisp%2Fwanderlust.git

* elmo-pop3.el (elmo-message-fetch-plugged): Fixed.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 4d42a24..ecb60a0 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,6 +1,7 @@
 2001-06-11  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-pop3.el (elmo-pop3-process-filter): Don't use floor nor float.
+	(elmo-message-fetch-plugged): Fixed.
 
 	* elmo-imap4.el (elmo-imap4-find-next-line): Ditto.
 
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index e47e654..d7339e6 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -2477,8 +2477,7 @@ If optional argument REMOVE is non-nil, remove FLAG."
       (setq elmo-imap4-display-literal-progress nil))
     (unless elmo-inhibit-display-retrieval-progress
       (elmo-display-progress 'elmo-imap4-display-literal-progress
-			     ""
-			     100)  ; remove progress bar.
+			     "" 100)  ; remove progress bar.
       (message "Retrieving...done."))
     (if (setq response (elmo-imap4-response-bodydetail-text
 			(elmo-imap4-response-value-all
diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el
index 0d5f2a4..debe4cf 100644
--- a/elmo/elmo-pop3.el
+++ b/elmo/elmo-pop3.el
@@ -859,7 +859,8 @@ set as non-nil.")
 	  (setq elmo-pop3-total-size size)
 	  (elmo-display-progress
 	   'elmo-pop3-display-retrieval-progress
-	   (format "Retrieving (0/%d bytes)..." elmo-pop3-total-size)))
+	   (format "Retrieving (0/%d bytes)..." elmo-pop3-total-size)
+	   0))
 	(unwind-protect
 	    (progn
 	      (when (null (setq response (elmo-pop3-read-response
@@ -868,6 +869,8 @@ set as non-nil.")
 	      (setq response (elmo-pop3-read-body process outbuf)))
 	  (setq elmo-pop3-total-size nil))
 	(unless elmo-inhibit-display-retrieval-progress
+	  (elmo-display-progress
+	   'elmo-display-retrieval-progress "" 100)  ; remove progress bar.
 	  (message "Retrieving...done."))
 	(set-buffer outbuf)
 	(goto-char (point-min))