From cc1cf1801ce4851f10998ed8bd2e38318f556ea1 Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 28 Apr 2000 03:27:20 +0000 Subject: [PATCH] * 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. --- wl/ChangeLog | 9 +++++++++ wl/wl-folder.el | 18 ++++++++++++------ wl/wl-summary.el | 4 +++- wl/wl-thread.el | 5 ++++- 4 files changed, 28 insertions(+), 8 deletions(-) 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 + + * 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 * 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 ;; 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 ;; 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 ;; 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))) -- 1.7.10.4