From: teranisi <teranisi>
Date: Fri, 28 Apr 2000 03:26:09 +0000 (+0000)
Subject: * elmo-nntp.el (elmo-nntp-list-folders): Remove progress gauge
X-Git-Tag: wl-1_1_1~25
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5ce0f616f353faecced3c5c28c7825eb5cc055cf;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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)