From 9337f9bb531635b7ef403fe5670457a409e9b6be Mon Sep 17 00:00:00 2001 From: hmurata Date: Wed, 25 Feb 2004 11:12:23 +0000 Subject: [PATCH] * elmo.el (elmo-folder-kill-messages): Fix to update killed list. --- elmo/ChangeLog | 4 ++++ elmo/elmo.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 42aab59..64cf294 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,7 @@ +2004-02-25 Hiroya Murata + + * elmo.el (elmo-folder-kill-messages): Fix to update killed list. + 2004-02-24 Hiroya Murata * elmo-file.el (elmo-file-find): Fixed the problem when file is diff --git a/elmo/elmo.el b/elmo/elmo.el index b44ee71..ea2b6a1 100644 --- a/elmo/elmo.el +++ b/elmo/elmo.el @@ -1386,7 +1386,7 @@ If Optional LOCAL is non-nil, don't update server flag." (let ((msgdb (elmo-folder-msgdb folder)) (killed (elmo-folder-killed-list-internal folder))) (dolist (number numbers) - (elmo-number-set-append killed number) + (setq killed (elmo-number-set-append killed number)) (elmo-msgdb-unset-flag msgdb number 'all)) (elmo-folder-set-killed-list-internal folder killed))) -- 1.7.10.4