* elmo-localdir.el (elmo-folder-pack-numbers): onum, a member of

flist, is not always a member of onum-alist.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 4a585d2..dd9db82 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-16  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * elmo-localdir.el (elmo-folder-pack-numbers): onum, a member of
+       flist, is not always a member of onum-alist.
+
 2003-02-14  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
        * elmo-version.el (elmo-version): Up to 2.11.3.

diff --git a/elmo/elmo-localdir.el b/elmo/elmo-localdir.el
index 3ab93a0..f030437 100644 (file)
--- a/elmo/elmo-localdir.el
+++ b/elmo/elmo-localdir.el
@@ -355,7 +355,8 @@
         (elmo-msgdb-overview-get-entity onum msgdb)
         new-number)
        ;; update number-alist
-       (setcar (assq onum onum-alist) new-number))
+       (and (assq onum onum-alist)
+            (setcar (assq onum onum-alist) new-number)))
       ;; update mark-alist
       (when (setq mark (cadr (assq onum omark-alist)))
        (setq new-mark-alist