From fba75a17aaa3c9665bcd908d60efc05ecd4bef97 Mon Sep 17 00:00:00 2001 From: okada Date: Mon, 19 Nov 2001 18:50:33 +0000 Subject: [PATCH] * elmo-pipe.el (elmo-pipe-drain): Append copied messaged to killed-list. --- elmo/ChangeLog | 5 +++++ elmo/elmo-pipe.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 4f14f74..8e9b013 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2001-11-20 Kenichi OKADA + + * elmo-pipe.el (elmo-pipe-drain): Append copied messaged + to killed-list. + 2001-11-19 Kenichi OKADA * elmo-pipe.el (elmo-pipe-folder): Add `copy'. diff --git a/elmo/elmo-pipe.el b/elmo/elmo-pipe.el index ebe6166..a06e3de 100644 --- a/elmo/elmo-pipe.el +++ b/elmo/elmo-pipe.el @@ -111,7 +111,9 @@ (unwind-protect (elmo-folder-move-messages src msgs dst nil nil copy) - (elmo-progress-clear 'elmo-folder-move-messages))) + (elmo-progress-clear 'elmo-folder-move-messages)) + (if copy + (elmo-msgdb-append-to-killed-list src msgs))) ;; Don't save msgdb here. ;; Because summary view of original folder is not updated yet. (elmo-folder-close-internal src) @@ -216,7 +218,7 @@ (luna-define-method elmo-folder-message-file-directory ((folder elmo-pipe-folder)) - (elmo-folder-message-file-directory + (elmo-folder-message-file-directory (elmo-pipe-folder-dst-internal folder))) (luna-define-method elmo-folder-message-make-temp-file-p -- 1.7.10.4