From dc5a1d545d9fc0ab3424363f396bde2d3306bb03 Mon Sep 17 00:00:00 2001 From: okada Date: Tue, 17 Oct 2000 06:35:32 +0000 Subject: [PATCH] * wl-expire.el (wl-expire-hide): New function. (wl-summary-expire): Add `hide'. --- wl/ChangeLog | 5 +++++ wl/wl-expire.el | 11 +++++++++++ 2 files changed, 16 insertions(+) diff --git a/wl/ChangeLog b/wl/ChangeLog index 9aad515..7edcdc7 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2000-10-17 Kenichi OKADA + + * wl-expire.el (wl-expire-hide): New function. + (wl-summary-expire): Add `hide'. + 2000-10-17 Yuuichi Teranishi * 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 --- 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) -- 1.7.10.4