From: yoichi <yoichi>
Date: Mon, 2 Dec 2002 21:33:25 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-target-mark-erase): Simplify.
X-Git-Tag: wl-2_11_1~20
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3cc440574144d19a941aefc9074cd4ffb7fcd6b3;p=elisp%2Fwanderlust.git

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

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  <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
--- 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.")))