From 39589b45168b024fc0bfabb103dc5efd7ee0d519 Mon Sep 17 00:00:00 2001 From: hmurata Date: Thu, 10 Apr 2003 00:14:49 +0000 Subject: [PATCH] * elmo-pipe.el (elmo-folder-clear): Implemented clear copied-list. --- elmo/ChangeLog | 4 ++++ elmo/elmo-pipe.el | 5 +++++ 2 files changed, 9 insertions(+) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 2203b05..b33dbdd 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,7 @@ +2003-04-10 Hiroya Murata + + * elmo-pipe.el (elmo-folder-clear): Implemented clear copied-list. + 2003-03-30 Yoichi NAKAYAMA * elmo.el (elmo-folder-delete): Confirm deletion here, return t if diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el index c4194b7..b57a9b8 100644 --- a/elmo/elmo-pipe.el +++ b/elmo/elmo-pipe.el @@ -93,6 +93,11 @@ (elmo-message-fetch (elmo-pipe-folder-dst-internal folder) number strategy section outbuf unseen)) +(luna-define-method elmo-folder-clear :after ((folder elmo-pipe-folder) + &optional keep-killed) + (unless keep-killed + (elmo-pipe-folder-copied-list-save folder nil))) + (luna-define-method elmo-folder-delete-messages ((folder elmo-pipe-folder) numbers) (elmo-folder-delete-messages (elmo-pipe-folder-dst-internal folder) -- 1.7.10.4