[mew-dist 28220] 1Z でエラー

[Takashi Masuda ( 増田貴士 )]

増田です。

現在の cvs 先端で 1Z すると、mew-local-folder-make-alist() で添付のエラー
が発生します。dolist の dirs が更新されないことが原因のようです。

よろしくお願いします。

--
Takashi Masuda <masutaka at example.com>
-------------- next part --------------
Debugger entered--Lisp error: (wrong-type-argument integerp "_attr")
  concat("+" ("_attr" "_idx" "_kwd" "_text"))
  (setq ent (concat fldpfx dir))
  (while --cl-dolist-temp-- (setq dir (car --cl-dolist-temp--)) (setq ent (concat fldpfx dir)) (cond (... ...) (t ...)) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
  (let ((--cl-dolist-temp-- dirs) dir) (while --cl-dolist-temp-- (setq dir ...) (setq ent ...) (cond ... ...) (setq --cl-dolist-temp-- ...)) nil)
  (catch (quote --cl-block-nil--) (let (... dir) (while --cl-dolist-temp-- ... ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... dir) (while --cl-dolist-temp-- ... ... ... ...) nil))
  (dolist (dir dirs) (setq ent (concat fldpfx dir)) (cond (... ...) (t ...)))
  (let (fldpfx ret ent) (if (= ... 1) (setq fldpfx prefix) (setq fldpfx ...)) (dolist (dir dirs) (setq ent ...) (cond ... ...)) ret)
  mew-local-folder-make-alist(("attach" "backup" "casket" ("_attr" "_idx" "_kwd" "_text") "draft" (略) "trash") "+")
  mew-local-update(t)
  mew-status-update(1)
  call-interactively(mew-status-update)