From: teranisi Date: Tue, 12 Aug 2003 08:37:06 +0000 (+0000) Subject: * elmo-msgdb.el (elmo-msgdb-make-index): Use X-Git-Tag: wl-2_11_8~13 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9c8f2ed92f4569d80ddb6de59a82cc89b49329b4;p=elisp%2Fwanderlust.git * elmo-msgdb.el (elmo-msgdb-make-index): Use elmo-msgdb-overview-entity-get-number instead of elmo-message-entity-number. --- diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 7e32db1..4845bd0 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,9 @@ +2003-08-12 Yuuichi Teranishi + + * elmo-msgdb.el (elmo-msgdb-make-index): Use + elmo-msgdb-overview-entity-get-number instead of + elmo-message-entity-number. + 2003-08-09 Hiroya Murata * elmo-version.el (elmo-version): Up to 2.11.7. diff --git a/elmo/elmo-msgdb.el b/elmo/elmo-msgdb.el index 60fce6b..6e7efb5 100644 --- a/elmo/elmo-msgdb.el +++ b/elmo/elmo-msgdb.el @@ -1314,14 +1314,15 @@ Return a list of message numbers which have duplicated message-ids." ;; key is message-id (if (elmo-get-hash-val (caar overview) ehash) ; duplicated. (setq duplicates (cons - (elmo-message-entity-number (car overview)) + (elmo-msgdb-overview-entity-get-number + (car overview)) duplicates))) (if (caar overview) (elmo-set-hash-val (caar overview) (car overview) ehash)) ;; key is number (elmo-set-hash-val (format "#%d" - (elmo-message-entity-number (car overview))) + (elmo-msgdb-overview-entity-get-number (car overview))) (car overview) ehash) (setq overview (cdr overview))) (while mark-alist