From 2225912a4751b90f55031de386f966c596c4e941 Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 19 Jan 2001 09:08:06 +0000 Subject: [PATCH] 2001-01-19 Akihiro MOTOKI * wl-expire.el (wl-expire-hide): Call `wl-expire-delete-reserve-marked-msgs-from-list'. --- wl/ChangeLog | 5 +++++ wl/wl-expire.el | 8 ++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) 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 + + * wl-expire.el (wl-expire-hide): + Call `wl-expire-delete-reserve-marked-msgs-from-list'. + 2001-01-19 Yuuichi Teranishi * 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) -- 1.7.10.4