* wl-action.el (wl-summary-target-mark-all): Use

elmo-folder-list-messages.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index c104ea8..ba6c632 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2003-08-02  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * wl-action.el (wl-summary-target-mark-all): Use
+       elmo-folder-list-messages.
+
 2003-08-02  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-summary.el (wl-summary-rescan): Added argument disable-kill

diff --git a/wl/wl-action.el b/wl/wl-action.el
index f1dedd9..54af747 100644 (file)
--- a/wl/wl-action.el
+++ b/wl/wl-action.el
@@ -895,8 +895,8 @@ If optional argument NUMBER is specified, unmark message specified by NUMBER."
   (interactive)
   (wl-summary-target-mark-region (point-min) (point-max))
   (setq wl-summary-buffer-target-mark-list
-       (mapcar 'car
-               (elmo-msgdb-get-number-alist (wl-summary-buffer-msgdb)))))
+       (elmo-folder-list-messages wl-summary-buffer-elmo-folder
+                                  nil 'in-msgdb)))
 
 (defun wl-summary-delete-all-mark (mark)
   (goto-char (point-min))