From: hmurata <hmurata>
Date: Sat, 2 Aug 2003 15:35:50 +0000 (+0000)
Subject: * wl-action.el (wl-summary-target-mark-all): Use
X-Git-Tag: wl-2_11_6~16
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c45d5d8d1f9a9413ea2ffd5cd8e5613dbca4450d;p=elisp%2Fwanderlust.git

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