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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 81f3368..f93a60b 100644 (file)
--- 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 (file)
--- 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."