2001-01-19 Akihiro MOTOKI <mokkun@iname.com>

	* wl-expire.el (wl-expire-hide):
	Call `wl-expire-delete-reserve-marked-msgs-from-list'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 48fe912..ddcc282 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-01-19  Akihiro MOTOKI <mokkun@iname.com>
+
+       * wl-expire.el (wl-expire-hide):
+       Call `wl-expire-delete-reserve-marked-msgs-from-list'.
+
 2001-01-19  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-draft.el (wl-draft-reply): Use `mime-find-field-decoder' to

diff --git a/wl/wl-expire.el b/wl/wl-expire.el
index e2648a8..178dab0 100644 (file)
--- a/wl/wl-expire.el
+++ b/wl/wl-expire.el
@@ -465,8 +465,12 @@ Refile to archive folder followed message date."
     deleted-list
     ))
 
-(defun wl-expire-hide (folder hide-list msgdb)
-  ""
+(defun wl-expire-hide (folder hide-list msgdb &optional no-reserve-marks)
+  "Hide message for expire."
+  (unless no-reserve-marks
+    (setq hide-list
+         (wl-expire-delete-reserve-marked-msgs-from-list
+          hide-list (elmo-msgdb-get-mark-alist msgdb))))
   (let ((mess (format "Hiding %s msgs..." (length hide-list))))
     (message mess)
     (elmo-msgdb-delete-msgs folder hide-list msgdb t)