From: teranisi <teranisi>
Date: Wed, 28 Jan 2004 14:28:51 +0000 (+0000)
Subject: * wl-action.el (wl-summary-target-mark-all): List messages which are
X-Git-Tag: wl-2_11_24~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b9724bfc05343c10aab7ead4372340fcbaade981;p=elisp%2Fwanderlust.git

* wl-action.el (wl-summary-target-mark-all): List messages which are
not in the killed-list.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index de2fb30..7ef680e 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2004-01-28  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* wl-action.el (wl-summary-target-mark-all): List messages which are
+	not in the killed-list.
+
 	* wl-summary.el (wl-summary-mark-as-important-internal): Cause an error
 	only when the folder is 'flag/important.
 
diff --git a/wl/wl-action.el b/wl/wl-action.el
index e164137..6274a5e 100644
--- a/wl/wl-action.el
+++ b/wl/wl-action.el
@@ -944,7 +944,7 @@ If optional argument NUMBER is specified, unmark message specified by NUMBER."
   (wl-summary-target-mark-region (point-min) (point-max))
   (setq wl-summary-buffer-target-mark-list
 	(elmo-folder-list-messages wl-summary-buffer-elmo-folder
-				   nil 'in-msgdb)))
+				   t 'in-msgdb)))
 
 (defun wl-summary-delete-all-mark (mark)
   (goto-char (point-min))