Revert last commit (I'm sorry it was my mistake).

[elisp/wanderlust.git] / wl / wl-expire.el

diff --git a/wl/wl-expire.el b/wl/wl-expire.el
index d3f2b94..165e07e 100644 (file)
--- a/wl/wl-expire.el
+++ b/wl/wl-expire.el
@@ -149,6 +149,7 @@
                                         t
                                         copy
                                         preserve-number
+                                        nil
                                         wl-expire-add-seen-list)
              (progn
                (wl-expire-append-log
@@ -204,6 +205,7 @@ If REFILE-LIST includes reserve mark message, so copy."
                                               t
                                               copy-reserve-message
                                               preserve-number
+                                              nil
                                               wl-expire-add-seen-list))
            (error "Expire: move msgs to %s failed"
                   (elmo-folder-name-internal dst-folder)))
@@ -811,7 +813,7 @@ ex. +ml/wl/1999_11/, +ml/wl/1999_12/."
   (interactive "P")
   (let* ((folder (or folder wl-summary-buffer-elmo-folder))
         (msgdb (or (wl-summary-buffer-msgdb)
-                   (elmo-folder-msgdb folder)))
+                   (elmo-msgdb-load folder)))
         (msgs (if (not nolist)
                   (elmo-folder-list-messages folder)
                 (mapcar 'car (elmo-msgdb-get-number-alist msgdb))))