From 5322e0d95b4119cecd7b3425e327402f5984c34d Mon Sep 17 00:00:00 2001 From: teranisi Date: Sun, 14 Dec 2003 16:42:08 +0000 Subject: [PATCH] * wl-action.el (wl-summary-delete-all-mark): Fix for "*". --- wl/ChangeLog | 4 ++++ wl/wl-action.el | 16 +++++++++------- 2 files changed, 13 insertions(+), 7 deletions(-) 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 + + * wl-action.el (wl-summary-delete-all-mark): Fix for "*". + 2003-12-14 Hiroya Murata * 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." -- 1.7.10.4