From 3cc440574144d19a941aefc9074cd4ffb7fcd6b3 Mon Sep 17 00:00:00 2001 From: yoichi Date: Mon, 2 Dec 2002 21:33:25 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-target-mark-erase): Simplify. --- wl/ChangeLog | 4 ++++ wl/wl-summary.el | 8 +++----- 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 7cacd94..95e9482 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,7 @@ +2002-12-03 Yoichi NAKAYAMA + + * wl-summary.el (wl-summary-target-mark-erase): Simplify. + 2002-11-25 Yoichi NAKAYAMA * wl-vars.el (wl-summary-search-parent-by-subject-regexp): It can diff --git a/wl/wl-summary.el b/wl/wl-summary.el index d48b752..61a9100 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -3164,11 +3164,9 @@ If optional argument NUMBER is specified, mark message specified by NUMBER." (message "No marked message.") (when (yes-or-no-p "Erase all marked messages without moving them to trash? ") - (while (car wl-summary-buffer-target-mark-list) - (let ((num (car wl-summary-buffer-target-mark-list))) - (wl-summary-unmark num) - (elmo-folder-delete-messages wl-summary-buffer-elmo-folder - (list num)))) + (elmo-folder-delete-messages wl-summary-buffer-elmo-folder + wl-summary-buffer-target-mark-list) + (setq wl-summary-buffer-target-mark-list nil) (save-excursion (wl-summary-sync nil "update")))) (message "Read-only folder."))) -- 1.7.10.4