From: hmurata <hmurata>
Date: Wed, 15 Oct 2003 12:18:23 +0000 (+0000)
Subject: * modb-legacy.el (elmo-msgdb-append-entity): Fixed the last
X-Git-Tag: wl-2_11_19~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b13c69f9cd7bb87813683fdde86d0b81b588e9b0;p=elisp%2Fwanderlust.git

* modb-legacy.el (elmo-msgdb-append-entity): Fixed the last
change.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 138e125..c22d445 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,8 @@
 2003-10-15  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
+	* modb-legacy.el (elmo-msgdb-append-entity): Fixed the last
+	change.
+
 	* modb-legacy.el (elmo-msgdb-append-entity): Registered an
 	identical cons cell into the mark-alist and the hash table.
 
diff --git a/elmo/modb-legacy.el b/elmo/modb-legacy.el
index 5c5f16d..4022ad2 100644
--- a/elmo/modb-legacy.el
+++ b/elmo/modb-legacy.el
@@ -518,7 +518,10 @@ Return a list of message numbers which have duplicated message-ids."
 	 msgdb
 	 (nconc (elmo-msgdb-get-mark-alist msgdb) (list cell)))
 	(modb-generic-set-flag-modified-internal msgdb t))
-      (elmo-msgdb-make-index msgdb (list entity) (list cell)))))
+      (elmo-msgdb-make-index
+       msgdb
+       (list entity)
+       (and cell (list cell))))))
 
 (luna-define-method elmo-msgdb-delete-messages ((msgdb modb-legacy)
 						numbers)