* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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))