* wl-expire.el (wl-expire-hide): New function.

	(wl-summary-expire): Add `hide'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 9aad515..7edcdc7 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-17  Kenichi OKADA  <okada@opaopa.org>
+
+       * wl-expire.el (wl-expire-hide): New function.
+       (wl-summary-expire): Add `hide'.
+
 2000-10-17  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-vars.el (wl-draft-reply-without-argument-list):

diff --git a/wl/wl-expire.el b/wl/wl-expire.el
index 7182c11..e148b62 100644 (file)
--- a/wl/wl-expire.el
+++ b/wl/wl-expire.el
@@ -465,6 +465,15 @@ Refile to archive folder followed message date."
     deleted-list
     ))
 
+(defun wl-expire-hide (folder hide-list msgdb)
+  (let ((mess (format "Hiding %s msgs..." (length hide-list))))
+    (message mess)
+    (elmo-msgdb-delete-msgs folder hide-list msgdb t)
+    (elmo-msgdb-append-to-killed-list folder hide-list)
+    (elmo-msgdb-save folder msgdb)
+    (message (concat mess "done"))
+    (cons hide-list (length hide-list))))
+
 (defsubst wl-expire-folder-p (folder)
   (wl-get-assoc-list-value wl-expire-alist folder))
 
@@ -538,6 +547,8 @@ Refile to archive folder followed message date."
                         (car (wl-expire-delete folder delete-list msgdb)))
                        ((eq rm-type 'trash)
                         (car (wl-expire-refile folder delete-list msgdb wl-trash-folder)))
+                       ((eq rm-type 'hide)
+                        (car (wl-expire-hide folder delete-list msgdb)))
                        ((stringp rm-type)
                         (car (wl-expire-refile folder delete-list msgdb rm-type)))
                        ((fboundp rm-type)