* elmo-nntp.el (elmo-nntp-list-folders): Remove progress gauge

when display is finished.
(elmo-nntp-msgdb-create): Ditto.
(elmo-nntp-groups-read-response): Ditto.
(elmo-nntp-retrieve-headers): Ditto.
(elmo-nntp-msgdb-create-message): Ditto.
* elmo-pop3.el (elmo-pop3-retrieve-headers): Ditto.
(elmo-pop3-msgdb-create-message): Ditto.

diff --git a/elmo/elmo-nntp.el b/elmo/elmo-nntp.el
index ee7dda8..0c3c558 100644 (file)
--- a/elmo/elmo-nntp.el
+++ b/elmo/elmo-nntp.el
@@ -4,7 +4,7 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <00/03/14 19:41:50 teranisi>
+;; Time-stamp: <00/04/28 10:30:51 teranisi>
 
 ;; This file is part of ELMO (Elisp Library for Message Orchestration).
 
@@ -425,6 +425,9 @@ Don't cache if nil.")
                  'elmo-nntp-list-folders "Parsing active..."
                  (/ (* i 100) len))))))
       (kill-buffer tmp-buffer)
+      (elmo-display-progress
+       'elmo-nntp-list-folders "Parsing active..."
+       100)
       (unless (string= server elmo-default-nntp-server)
        (setq append-serv (concat "@" server)))
       (unless (eq port elmo-default-nntp-port)
@@ -702,8 +705,9 @@ Don't cache if nil.")
                        seen-mark
                        important-mark
                        seen-list
-                       filter)))))
-         (message "Getting overview...done."))
+                       filter))))))
+       (elmo-display-progress
+        'elmo-nntp-msgdb-create "Getting overview..." 100)
        ;; If there are canceled messages, overviews are not obtained
        ;; to max-number(inn 2.3?).
        (when (and (elmo-nntp-max-number-precedes-list-active-p)
@@ -1166,6 +1170,9 @@ Return nil if connection failed."
              'elmo-nntp-groups-read-response "Getting folders info..."
              (/ (* received 100) count)))
        )
+      (elmo-display-progress
+       'elmo-nntp-groups-read-response "Getting folders info..."
+       100)
       ;; Wait for the reply from the final command.
       (goto-char (point-max))
       (re-search-backward "^[0-9]" nil t)
@@ -1247,6 +1254,8 @@ Return nil if connection failed."
            (accept-process-output process 1)
            (discard-input)
            )))
+      (elmo-display-progress
+       'elmo-nntp-retrieve-headers "Getting headers..." 100)
       (message "Getting headers...done")
       ;; Remove all "\r"'s.
       (goto-char (point-min))
@@ -1309,9 +1318,9 @@ Return nil if connection failed."
        (and (zerop (% i 20))
             (elmo-display-progress
              'elmo-nntp-msgdb-create-message "Creating msgdb..."
-             (/ (* i 100) len)))
-       )
-      (message "Creating msgdb...done.")
+             (/ (* i 100) len))))
+      (elmo-display-progress
+       'elmo-nntp-msgdb-create-message "Creating msgdb..." 100)
       (list overview number-alist mark-alist))))
 
 (defun elmo-nntp-use-cache-p (spec number)

diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el
index bef19c0..a30e20e 100644 (file)
--- a/elmo/elmo-pop3.el
+++ b/elmo/elmo-pop3.el
@@ -4,7 +4,7 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <2000-04-03 09:29:38 teranisi>
+;; Time-stamp: <00/04/28 10:28:08 teranisi>
 
 ;; This file is part of ELMO (Elisp Library for Message Orchestration).
 
@@ -484,7 +484,8 @@
            ;(accept-process-output process)
            (discard-input)
            )))
-      (message "Getting headers...done")
+      (elmo-display-progress
+       'elmo-pop3-retrieve-headers "Getting headers..." 100)
       ;; Remove all "\r"'s.
       (goto-char (point-min))
       (while (search-forward "\r\n" nil t)
@@ -579,7 +580,8 @@
              'elmo-pop3-msgdb-create-message "Creating msgdb..."
              (/ (* i 100) num)))
        )
-      (message "Creating msgdb...done.")
+      (elmo-display-progress
+       'elmo-pop3-msgdb-create-message "Creating msgdb..." 100)
       (list overview number-alist mark-alist))))
 
 (defun elmo-pop3-read-body (buffer process outbuf)