From: yoichi <yoichi>
Date: Tue, 3 Dec 2002 12:51:19 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-target-mark-erase): Delete messages on buffer
X-Git-Tag: wl-2_11_1~18
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0a465b89df1dd85e0a68ec31b483ca06782ae955;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-target-mark-erase): Delete messages on buffer
for unplugged operation.
(wl-summary-erase): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 95e9482..d0063b8 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,6 +1,8 @@
 2002-12-03  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-summary.el (wl-summary-target-mark-erase): Simplify.
+	Delete messages on buffer for unplugged operation.
+	(wl-summary-erase): Ditto.
 
 2002-11-25  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 61a9100..cd546eb 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -3154,6 +3154,7 @@ If optional argument NUMBER is specified, mark message specified by NUMBER."
 	      (wl-summary-unmark msg-num)
 	      (elmo-folder-delete-messages wl-summary-buffer-elmo-folder
 					   (list msg-num))
+	      (wl-summary-delete-messages-on-buffer (list msg-num))
 	      (save-excursion (wl-summary-sync nil "update"))))))
     (message "Read-only folder.")))
 
@@ -3166,6 +3167,8 @@ If optional argument NUMBER is specified, mark message specified by NUMBER."
 	       "Erase all marked messages without moving them to trash? ")
 	  (elmo-folder-delete-messages wl-summary-buffer-elmo-folder
 				       wl-summary-buffer-target-mark-list)
+	  (wl-summary-delete-messages-on-buffer
+	   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.")))