* wl-folder (wl-folder-insert-entity): Display a message,

`...done', when the work finish.
(from Tatsuya Kinoshita <tats@vega.ocn.ne.jp> [wl:10866])

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 94faee4..1a7920b 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2003-05-11  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * wl-folder (wl-folder-insert-entity): Display a message,
+       `...done', when the work finish.
+       (from Tatsuya Kinoshita <tats@vega.ocn.ne.jp> [wl:10866])
+
 2003-05-04  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * wl-message.el (wl-message-redisplay): Remove unused local

diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index b58e99e..5e74d02 100644 (file)
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -1739,7 +1739,9 @@ Entering Folder mode calls the value of `wl-folder-mode-hook'."
                    (elmo-display-progress
                     'wl-folder-insert-entity "Inserting group %s..."
                     (/ (* i 100) len) (car entity)))
-                 (setq flist (cdr flist))))
+                 (setq flist (cdr flist)))
+               (if (> len 0)
+                   (message "Inserting group %s...done" (car entity))))
              (save-excursion
                (goto-char group-name-end)
                (delete-region (point) (save-excursion (end-of-line)