* elmo-multi.el (elmo-multi-folder-append-msgdb): Fixed structure

of `to-be-deleted' from number-alist to number-list.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index d68f8dc..90de14a 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2001-05-02  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * elmo-multi.el (elmo-multi-folder-append-msgdb): Fixed structure
+       of `to-be-deleted' from number-alist to number-list.
+
 2001-04-26  Hiroya Murata  <hiroya@use-ebisu.co.jp>
 
        * elmo-pipe.el (elmo-folder-unmark-important): Fixed typo.

diff --git a/elmo/elmo-multi.el b/elmo/elmo-multi.el
index c8f4d47..b25de92 100644 (file)
--- a/elmo/elmo-multi.el
+++ b/elmo/elmo-multi.el
@@ -201,7 +201,8 @@
                         (/ (car same) 
                            (elmo-multi-folder-divide-number-internal folder)))
                ;; base is also same...delete it!
-               (setq to-be-deleted (append to-be-deleted (list (car cur))))))
+               (setq to-be-deleted
+                     (append to-be-deleted (list (car (car cur)))))))
          (setq cur (cdr cur)))
        (cond ((eq (elmo-folder-process-duplicates-internal folder)
                   'hide)