* elmo-localdir.el (elmo-folder-pack-numbers): Fixed.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index d46b011..0c417c1 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,9 @@
 2001-05-10  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
+       * elmo-localdir.el (elmo-folder-pack-numbers): Fixed.
+
+2001-05-10  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
        * elmo.el (elmo-folder-move-messages): Fixed problem when
        `dst-folder' is 'null.
 

diff --git a/elmo/elmo-localdir.el b/elmo/elmo-localdir.el
index 3d9358e..2c16914 100644 (file)
--- a/elmo/elmo-localdir.el
+++ b/elmo/elmo-localdir.el
@@ -343,7 +343,7 @@
   (let* ((dir (elmo-localdir-folder-directory-internal folder))
         (msgdb (elmo-folder-msgdb folder))
         (onum-alist (elmo-msgdb-get-number-alist msgdb))
-        (omark-alist (elmo-msgdb-get-mark-alist (elmo-folder-msgdb msgdb)))
+        (omark-alist (elmo-msgdb-get-mark-alist msgdb))
         (new-number 1)                 ; first ordinal position in localdir
         flist onum mark new-mark-alist total)
     (setq flist