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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 4d42a24..ecb60a0 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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))