From: teranisi <teranisi>
Date: Fri, 19 Jan 2001 09:08:06 +0000 (+0000)
Subject: 2001-01-19  Akihiro MOTOKI <mokkun@iname.com>
X-Git-Tag: wl-2_4_1~27
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2225912a4751b90f55031de386f966c596c4e941;p=elisp%2Fwanderlust.git

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
--- 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
--- 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)