From: teranisi <teranisi>
Date: Thu, 17 Jul 2003 16:08:43 +0000 (+0000)
Subject: * wl-expire.el (wl-expire-delete): Use elmo-folder-detach-messages
X-Git-Tag: elmo-mark-restart~35
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f60680867abb63547a99f8ff7f48c19dab772c6a;p=elisp%2Fwanderlust.git

* wl-expire.el (wl-expire-delete): Use elmo-folder-detach-messages
instead of elmo-msgdb-delete-msgs.
(wl-expire-refile-with-copy-reserve-msg): Ditto.
(wl-expire-hide): Ditto.

* wl-summary.el (wl-summary-delete-all-msgs): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 407bf2b..331212c 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,12 @@
 2003-07-17  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* wl-expire.el (wl-expire-delete): Use elmo-folder-detach-messages
+	instead of elmo-msgdb-delete-msgs.
+	(wl-expire-refile-with-copy-reserve-msg): Ditto.
+	(wl-expire-hide): Ditto.
+
+	* wl-summary.el (wl-summary-delete-all-msgs): Ditto.
+
 	* wl-thread.el (wl-thread-update-line-on-buffer-sub): Don't use
 	elmo-msgdb interface.
 	(wl-thread-get-exist-children): Likewise.
diff --git a/wl/wl-expire.el b/wl/wl-expire.el
index 99cfd13..39bfa7a 100644
--- a/wl/wl-expire.el
+++ b/wl/wl-expire.el
@@ -110,8 +110,7 @@
       (if (elmo-folder-delete-messages folder
 				       delete-list)
 	  (progn
-	    (elmo-msgdb-delete-msgs (elmo-folder-msgdb folder)
-				    delete-list)
+	    (elmo-folder-detach-messages folder delete-list)
 	    (wl-expire-append-log
 	     (elmo-folder-name-internal folder)
 	     delete-list nil 'delete)
@@ -222,8 +221,7 @@ If REFILE-LIST includes reserve mark message, so copy."
 			(elmo-folder-delete-messages folder
 						     refile-list))
 		  (progn
-		    (elmo-msgdb-delete-msgs (elmo-folder-msgdb folder)
-					    refile-list)
+		    (elmo-folder-detach-messages folder refile-list)
 		    (wl-expire-append-log
 		     (elmo-folder-name-internal folder)
 		     refile-list nil 'delete))))))
@@ -590,7 +588,7 @@ ex. +ml/wl/1999_11/, +ml/wl/1999_12/."
 	   hide-list (elmo-msgdb-get-mark-alist msgdb))))
   (let ((mess (format "Hiding %s msgs..." (length hide-list))))
     (message "%s" mess)
-    (elmo-msgdb-delete-msgs (elmo-folder-msgdb folder) hide-list)
+    (elmo-folder-detach-messages folder hide-list)
     (elmo-msgdb-append-to-killed-list folder hide-list)
     (elmo-folder-commit folder)
     (message "%sdone" mess)
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 6a598bd..3f0975f 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2074,9 +2074,7 @@ If ARG is non-nil, checking is omitted."
 	    (message "Deleting...")
 	    (elmo-folder-delete-messages
 	     wl-summary-buffer-elmo-folder dels)
-	    ;; XXXX
-	    (elmo-msgdb-delete-msgs (wl-summary-buffer-msgdb)
-				    dels)
+	    (elmo-folder-detach-messages wl-summary-buffer-elmo-folder dels)
 	    (wl-summary-set-message-modified)
 	    (wl-folder-set-folder-updated (wl-summary-buffer-folder-name)
 					  (list 0 0 0))