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