From 871491cd504f723b2007c0334d22afbcd29f57f9 Mon Sep 17 00:00:00 2001 From: kaoru Date: Sun, 15 Jun 2003 15:28:09 +0000 Subject: [PATCH] * elmo-localdir.el (elmo-folder-pack-numbers): onum, a member of flist, is not always a member of onum-alist. --- elmo/ChangeLog | 3 +++ elmo/elmo-localdir.el | 3 ++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 2130941..a49752e 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,5 +1,8 @@ 2003-06-15 TAKAHASHI Kaoru + * 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 --- 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 -- 1.7.10.4