From: teranisi <teranisi>
Date: Sun, 14 Dec 2003 16:42:08 +0000 (+0000)
Subject: * wl-action.el (wl-summary-delete-all-mark): Fix for "*".
X-Git-Tag: wl-2_11_23~20
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5322e0d95b4119cecd7b3425e327402f5984c34d;p=elisp%2Fwanderlust.git

* wl-action.el (wl-summary-delete-all-mark): Fix for "*".
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 81f3368..f93a60b 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2003-12-14  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-action.el (wl-summary-delete-all-mark): Fix for "*".
+
 2003-12-14  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-thread.el (wl-thread-mark-as-answered): New function.
diff --git a/wl/wl-action.el b/wl/wl-action.el
index f4007da..3dd4532 100644
--- a/wl/wl-action.el
+++ b/wl/wl-action.el
@@ -913,13 +913,15 @@ If optional argument NUMBER is specified, unmark message specified by NUMBER."
     (when (string= (wl-summary-temp-mark) mark)
       (wl-summary-unmark))
     (forward-line 1))
-  (let (deleted)
-    (dolist (mark-info wl-summary-buffer-temp-mark-list)
-      (when (string= (nth 1 mark-info) mark)
-	(setq deleted (cons mark-info deleted))))
-    (dolist (delete deleted)
-      (setq wl-summary-buffer-temp-mark-list
-	    (delq delete wl-summary-buffer-temp-mark-list)))))
+  (if (string= mark "*")
+      (setq wl-summary-buffer-target-mark-list nil)
+    (let (deleted)
+      (dolist (mark-info wl-summary-buffer-temp-mark-list)
+	(when (string= (nth 1 mark-info) mark)
+	  (setq deleted (cons mark-info deleted))))
+      (dolist (delete deleted)
+	(setq wl-summary-buffer-temp-mark-list
+	      (delq delete wl-summary-buffer-temp-mark-list))))))
 
 (defun wl-summary-unmark-all ()
   "Unmark all according to what you input."