From: teranisi <teranisi>
Date: Fri, 28 Apr 2000 03:27:20 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-insert-entity): Remove progress gauge
X-Git-Tag: wl-1_1_1~24
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cc1cf1801ce4851f10998ed8bd2e38318f556ea1;p=elisp%2Fwanderlust.git

* wl-folder.el (wl-folder-insert-entity): Remove progress gauge
when display is finished.
(wl-folder-open-all): Ditto.
(wl-folder-update-access-group): Ditto.
* wl-summary.el (wl-summary-delete-messages-on-buffer): Ditto.
* wl-thread.el (wl-thread-close-all): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 752e266..2446318 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,12 @@
+2000-04-28  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-folder.el (wl-folder-insert-entity): Remove progress gauge
+	when display is finished.
+	(wl-folder-open-all): Ditto.
+	(wl-folder-update-access-group): Ditto.
+	* wl-summary.el (wl-summary-delete-messages-on-buffer): Ditto.
+	* wl-thread.el (wl-thread-close-all): Ditto.
+
 2000-04-26  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-summary.el (wl-summary-incorporate): Enclose
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 2c8c82d..ec7ccae 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -4,7 +4,7 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <2000-04-07 09:30:54 teranisi>
+;; Time-stamp: <00/04/28 11:53:33 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
@@ -1651,10 +1651,12 @@ Entering Folder mode calls the value of `wl-folder-mode-hook'."
 		  (setq all    (+ (or all 0) (or (nth 2 ret-val) 0)))
 		  (when mes
 		    (setq i (1+ i))
-		    (and (zerop (% i 10))
-			 (elmo-display-progress
-			  'wl-folder-insert-entity "Inserting group %s..."
-			  (/ (* i 100) len) (car entity))))
+		    (elmo-display-progress
+		     'wl-folder-insert-entity "Inserting group %s..."
+		     (/ (* i 100) len) (car entity)))
+		  ;(elmo-display-progress
+		  ; 'wl-folder-insert-entity "Inserting group %s..."
+		  ; 100 (car entity))
 		  (setq flist (cdr flist)))
 		(when mes (message "")))
 	      (save-excursion
@@ -2366,7 +2368,8 @@ Entering Folder mode calls the value of `wl-folder-mode-hook'."
 	       (elmo-display-progress
 		'wl-folder-open-all "Opening all folders..."
 		(/ (* i 100) len))))))
-    (message "Opening all folders...done")
+    (elmo-display-progress
+     'wl-folder-open-all "Opening all folders..." 100)
     (set-buffer-modified-p nil)))
 
 (defun wl-folder-close-all ()
@@ -2476,6 +2479,9 @@ Entering Folder mode calls the value of `wl-folder-mode-hook'."
 	    'wl-folder-update-access-group "Updating access group..."
 	    (/ (* i 100) len)))
       (setq unsubscribes (cdr unsubscribes)))
+    (elmo-display-progress
+     'wl-folder-update-access-group "Updating access group..."
+     100)
     ;;
     (if (or new-flist removes)
 	(setq diff t))
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 3b1cd69..beed4d1 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4,7 +4,7 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <00/04/26 14:03:56 teranisi>
+;; Time-stamp: <00/04/28 10:27:22 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
@@ -1898,6 +1898,8 @@ If optional argument is non-nil, checking is omitted."
 		'wl-summary-delete-messages-on-buffer "Deleting..."
 		(/ (* i 100) len))))
 	(setq msgs (cdr msgs)))
+      (elmo-display-progress
+       'wl-summary-delete-messages-on-buffer "Deleting..." 100)
       (if (eq wl-summary-buffer-view 'thread)
 	  (wl-thread-update-line-msgs (elmo-uniq-list update-list)))
       (wl-thread-cleanup-symbols msgs2)
diff --git a/wl/wl-thread.el b/wl/wl-thread.el
index ac11584..1fdb73b 100644
--- a/wl/wl-thread.el
+++ b/wl/wl-thread.el
@@ -4,7 +4,7 @@
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;; Keywords: mail, net news
-;; Time-stamp: <00/03/13 16:10:25 teranisi>
+;; Time-stamp: <00/04/28 09:49:12 teranisi>
 
 ;; This file is part of Wanderlust (Yet Another Message Interface on Emacsen).
 
@@ -550,6 +550,9 @@ the closed parent will be opened."
 	 'wl-thread-close-all "Closing all threads..." 
 	 (/ (* cur 100) len)))
       (setq entities (cdr entities))))
+  (elmo-display-progress 'wl-thread-close-all
+			 "Updating marks..."
+			 100)  
   (message "Closing all threads...done.")
   (goto-char (point-max)))