From: hmurata <hmurata>
Date: Wed, 2 May 2001 10:02:38 +0000 (+0000)
Subject: * elmo-multi.el (elmo-multi-folder-append-msgdb): Fixed structure
X-Git-Tag: wl-2_6-root^3~22
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=87f2fa09518c9334c50bd294aad37d6f8a1ef9b8;p=elisp%2Fwanderlust.git

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