From b2402d30badc20f95f82b87e8730df2d4d48e5ca Mon Sep 17 00:00:00 2001 From: hmurata Date: Sat, 6 Oct 2001 06:35:20 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-exec-subr): Setup and clear progress counter. --- wl/ChangeLog | 7 ++++++- wl/wl-summary.el | 9 ++++++++- 2 files changed, 14 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 3ce33fe..f20f752 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2001-10-06 Hiroya Murata + + * wl-summary.el (wl-summary-exec-subr): Setup and clear progress + counter. + 2001-10-05 Yoichi NAKAYAMA * wl-draft.el (wl-draft): Make truncate-partial-width-windows @@ -530,7 +535,7 @@ before call `get-buffer'. Fixed parenthesis. (wl-score-get-header-entry): Clear message and help window when keyboard quit. - (wl-score-edit-insert-header): Ditto. + (wl-score-edit-insert-header): Ditto. 2001-07-14 Yuuichi Teranishi diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 1c273b2..02fcdfa 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -3117,6 +3117,9 @@ If optional argument NUMBER is specified, mark message specified by NUMBER." (wl-inverse-alist refiles wl-summary-buffer-refile-list)) (goto-char start) ; avoid moving cursor to ; the bottom line. + (when (> refile-len elmo-display-progress-threshold) + (elmo-progress-set 'elmo-folder-move-messages + refile-len "Moving messages...")) (while dst-msgs (setq result nil) (condition-case nil @@ -3148,9 +3151,13 @@ If optional argument NUMBER is specified, mark message specified by NUMBER." (+ refile-failures (length (cdr (car dst-msgs)))))) (setq refile-executed (+ refile-executed (length (cdr (car dst-msgs))))) (setq dst-msgs (cdr dst-msgs))) + (elmo-progress-clear 'elmo-folder-move-messages) ;; end refile ;; begin cOpy... (setq dst-msgs (wl-inverse-alist copies wl-summary-buffer-copy-list)) + (when (> copy-len elmo-display-progress-threshold) + (elmo-progress-set 'elmo-folder-move-messages + copy-len "Copying messages...")) (while dst-msgs (setq result nil) (condition-case nil @@ -3181,7 +3188,7 @@ If optional argument NUMBER is specified, mark message specified by NUMBER." (setq copy-executed (+ copy-executed (length (cdr (car dst-msgs))))) (setq dst-msgs (cdr dst-msgs))) ;; Hide progress bar. - (elmo-display-progress 'elmo-folder-move-messages "" 100) + (elmo-progress-clear 'elmo-folder-move-messages) ;; end cOpy (wl-summary-folder-info-update) (wl-summary-set-message-modified) -- 1.7.10.4