From: kaoru Date: Sun, 15 Jun 2003 15:28:09 +0000 (+0000) Subject: * elmo-localdir.el (elmo-folder-pack-numbers): onum, a member of X-Git-Tag: wl-2_10_1pre~16 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=871491cd504f723b2007c0334d22afbcd29f57f9;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 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