From: hmurata Date: Wed, 15 Oct 2003 02:20:20 +0000 (+0000) Subject: * modb-legacy.el (elmo-msgdb-append-entity): Registered an X-Git-Tag: wl-2_11_19~2 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=27b61b7b2e99972ca7a6ef0541476b47fb6637ed;p=elisp%2Fwanderlust.git * 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 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2003-10-15 Hiroya Murata + + * 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 * 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 --- 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)