* 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 2130941..a49752e 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,8 @@
 2003-06-15  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+       * elmo-localdir.el (elmo-folder-pack-numbers): onum, a member of
+       flist, is not always a member of onum-alist.
+
        * elmo-imap4.el (elmo-folder-expand-msgdb-path): Don't expand
        mailbox (e.g. for %~/something).
 

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