X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2Fwl-expire.el;h=165e07ef0b101bdf842ad669510cb31bdbb773d7;hb=9ddac14c0b5daa5f6226bb422c36d16b2ccac5e9;hp=d3f2b945bc7817ec6bbc9d99a6ef9aea94aa1b63;hpb=2a411790da5e15af74e1b82857c221cea02059f7;p=elisp%2Fwanderlust.git

diff --git a/wl/wl-expire.el b/wl/wl-expire.el
index d3f2b94..165e07e 100644
--- 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))))