* elmo.el (elmo-folder-kill-messages): Fix to update killed list.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 42aab59..64cf294 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2004-02-25  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo.el (elmo-folder-kill-messages): Fix to update killed list.
+
 2004-02-24  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * 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 (file)
--- 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)))