From: yoichi <yoichi>
Date: Sun, 16 Feb 2003 08:09:31 +0000 (+0000)
Subject: * elmo-localdir.el (elmo-folder-pack-numbers): onum, a member of
X-Git-Tag: merged-trunk-to-elmo-mark-15~16
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d4f713cac1ddd94f6ae17b0ab20c5c34df651839;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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