From: hmurata <hmurata>
Date: Wed, 25 Feb 2004 11:12:23 +0000 (+0000)
Subject: * elmo.el (elmo-folder-kill-messages): Fix to update killed list.
X-Git-Tag: wl-2_11_25~42
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9337f9bb531635b7ef403fe5670457a409e9b6be;p=elisp%2Fwanderlust.git

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

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  <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
--- 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)))