* wl-summary.el (wl-summary-target-mark-erase): Simplify.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 7cacd94..95e9482 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2002-12-03  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * wl-summary.el (wl-summary-target-mark-erase): Simplify.
+
 2002-11-25  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
        * 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 (file)
--- 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.")))