* modb-legacy.el (elmo-msgdb-append-entity): Registered an

identical cons cell into the mark-alist and the hash table.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 239a7c9..138e125 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2003-10-15  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * modb-legacy.el (elmo-msgdb-append-entity): Registered an
+       identical cons cell into the mark-alist and the hash table.
+
 2003-10-08  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * elmo-pipe.el (elmo-pipe-folder-list-target-messages): Call

diff --git a/elmo/modb-legacy.el b/elmo/modb-legacy.el
index 49919ab..5c5f16d 100644 (file)
--- a/elmo/modb-legacy.el
+++ b/elmo/modb-legacy.el
@@ -502,7 +502,7 @@ Return a list of message numbers which have duplicated message-ids."
   (when entity
     (let ((number (elmo-msgdb-overview-entity-get-number-internal entity))
          (message-id (elmo-msgdb-overview-entity-get-id-internal entity))
-         mark)
+         mark cell)
       (elmo-msgdb-set-overview
        msgdb
        (nconc (elmo-msgdb-get-overview msgdb)
@@ -513,15 +513,12 @@ Return a list of message numbers which have duplicated message-ids."
              (list (cons number message-id))))
       (modb-generic-set-message-modified-internal msgdb t)
       (when (setq mark (modb-legacy-flags-to-mark flags))
+       (setq cell (list number mark))
        (elmo-msgdb-set-mark-alist
         msgdb
-        (nconc (elmo-msgdb-get-mark-alist msgdb)
-               (list (list number mark))))
+        (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 (list number mark))))))
+      (elmo-msgdb-make-index msgdb (list entity) (list cell)))))
 
 (luna-define-method elmo-msgdb-delete-messages ((msgdb modb-legacy)
                                                numbers)