From: murata <murata>
Date: Sat, 20 May 2000 15:27:27 +0000 (+0000)
Subject: (elmo-localdir-pack-number): Use `elmo-msgdb-overview-get-entity'
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=32ebf22fee071e63ce0c17f37582a96d9b2436cb;p=elisp%2Fwanderlust.git

(elmo-localdir-pack-number): Use `elmo-msgdb-overview-get-entity'
instead of `elmo-msgdb-overview-get-entity-by-number'.
---

diff --git a/elmo/elmo-localdir.el b/elmo/elmo-localdir.el
index 572eca6..32db3f8 100644
--- a/elmo/elmo-localdir.el
+++ b/elmo/elmo-localdir.el
@@ -397,8 +397,6 @@
   (let ((dir (elmo-localdir-get-folder-directory spec))
 	(onum-alist (elmo-msgdb-get-number-alist msgdb))
 	(omark-alist (elmo-msgdb-get-mark-alist msgdb))
-	(oov (elmo-msgdb-get-overview msgdb))
-	(oovht (elmo-msgdb-get-overviewht msgdb))
 	i flist onum mark new-mark-alist total)
     (setq i 0)
     (setq flist
@@ -420,8 +418,8 @@
 	 (rename-file (int-to-string onum) (int-to-string i) t))
         ;; update overview
         (elmo-msgdb-overview-entity-set-number
-	 (elmo-msgdb-overview-get-entity-by-number
-	  oov onum oovht) i)
+	 (elmo-msgdb-overview-get-entity onum msgdb)
+	 i)
 	;; update number-alist
 	(setcar (assq onum onum-alist) i))
       ;; update mark-alist