From: hmurata <hmurata>
Date: Thu, 10 Apr 2003 00:14:49 +0000 (+0000)
Subject: * elmo-pipe.el (elmo-folder-clear): Implemented clear copied-list.
X-Git-Tag: merged-trunk-to-elmo-mark-17~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=39589b45168b024fc0bfabb103dc5efd7ee0d519;p=elisp%2Fwanderlust.git

* elmo-pipe.el (elmo-folder-clear): Implemented clear copied-list.
---

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  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-pipe.el (elmo-folder-clear): Implemented clear copied-list.
+
 2003-03-30  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* 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)