X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=elmo%2Felmo-pipe.el;h=feae2dfa475b7e44a868cedcd2223cb1106e639e;hb=a5bcb1f0eb41b558a6b4ed277047adc6b8676a2a;hp=87c477a90b124bcacbd53aad327753ecce9a3c64;hpb=0c41af317b9692277c3871b9c8cd106d648f9772;p=elisp%2Fwanderlust.git

diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el
index 87c477a..feae2df 100644
--- a/elmo/elmo-pipe.el
+++ b/elmo/elmo-pipe.el
@@ -89,6 +89,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)