[mew-dist 22120] refile error

[Takanori-Nishimura]

にしむらです。

  今朝久々に会社に来たら 3.0.72 になっていたので、cvs update して入れ
てみました。

  すると特定の条件(なんでしょうが、はっきりはしてません)で、o (refile)
時にエラーが出ます。(というのも、出るときと出ないときがあります)

  それまで使っていたのが 10/17 の cvs ですので、それ以降の修正で問題が
発生したのだと思います。

  だれか他にも起こっていなんでしょうか？何が悪いんだろ.....

  とりあえず Backtrace つけておきますです。

BEGIN ----8<-ここから-8<----------8<----------8<----------8<----------

Debugger entered--Lisp error: (void-function mew-assoc-folder)
  (mew-assoc-folder ml-addr alist localp)
  (or (mew-assoc-folder ml-addr alist localp) (mew-assoc-folder ml-name alist localp))
  (setq ent (or (mew-assoc-folder ml-addr alist localp) (mew-assoc-folder ml-name alist localp)))
  (progn (setq ml-name (mew-addrstr-extract-user ml-addr)) (setq ent (or ... ...)) (mew-addq ret (nth 0 ent)))
  (if ml-addr (progn (setq ml-name ...) (setq ent ...) (mew-addq ret ...)))
  (when ml-addr (setq ml-name (mew-addrstr-extract-user ml-addr)) (setq ent (or ... ...)) (mew-addq ret (nth 0 ent)))
  (while to-cc (setq ml-addr (mew-addrstr-parse-address ...)) (when ml-addr (setq ml-name ...) (setq ent ...) (mew-addq ret ...)) (setq to-cc (cdr to-cc)))
  (let* ((to-cc ...) (proto ...) (case ...) (alist ...) (localp ...) ent ret ml-addr ml-name) (while to-cc (setq ml-addr ...) (when ml-addr ... ... ...) (setq to-cc ...)) (nreverse ret))
  mew-refile-guess-by-folder()
  funcall(mew-refile-guess-by-folder)
  (setq ret (funcall (car funcs)))
  (if (string-match "ctrl" (symbol-name ...)) (when (setq ret ...) (setq stop t) (or show-all ...)) (setq ret (funcall ...)))
  (while funcs (if (string-match "ctrl" ...) (when ... ... ...) (setq ret ...)) (unless (listp ret) (setq ret ...)) (setq info (nconc info ...)) (unless stop (while ret ... ...)) (setq funcs (cdr funcs)))
  (catch (quote last) (while funcs (if ... ... ...) (unless ... ...) (setq info ...) (unless stop ...) (setq funcs ...)))
  (let ((funcs mew-refile-guess-control) ret guess info stop) (catch (quote last) (while funcs ... ... ... ... ...)) (setq guess (nreverse guess)) (if (not mew-refile-ctrl-multi) (setq guess ...)) (cons guess info))
  mew-refile-guess(nil)
  (setq learn-info (mew-refile-guess auto))
  (save-excursion (set-buffer buf) (mew-sinfo-set-case case) (mew-sinfo-set-proto proto) (setq learn-info (mew-refile-guess auto)))
  (let ((proto ...) (case ...) learn-info folders ret cands singlep lst-lst lst fld) (save-excursion (set-buffer buf) (mew-sinfo-set-case case) (mew-sinfo-set-proto proto) (setq learn-info ...)) (if auto (setq folders ...) (cond ... ... ...) (setq cands ...) (when exfld ...) (setq cands ...) (if ... ...) (unless cands ...) (setq folders ...)) (setq lst-lst (mapcar ... folders)) (while lst-lst (setq lst ...) (setq lst-lst ...) (while lst ... ... ...)) (cons (nreverse ret) (cdr learn-info)))
  mew-refile-decide-folders(#<buffer  *mew cache*0> "147" nil nil nil)
  (setq learn-info (mew-refile-decide-folders buf msg cur-folders auto exfld))
  (if exp-flds (setq folders exp-flds) (if (or auto ...) (save-excursion ... ... ... ... ... ... ...) (mew-summary-display nil) (setq buf ...)) (when (and ... ...) (save-excursion ... ...)) (setq learn-info (mew-refile-decide-folders buf msg cur-folders auto exfld)) (setq folders (car learn-info)))
  (cond ((and mark ...) (or no-msg ...)) (invalidp (or no-msg ...)) (t (if exp-flds ... ... ... ... ...) (while folders ... ... ...) (setq folders ...) (setq folders ...) (unless no-mark ...) (if delbuf ...) (setq mew-refile-last-folder folders) (set-buffer-modified-p nil) folders))
  (let (msg folder folders cur-folders mark buf learn-info fld tmp delbuf invalidp) (save-excursion (mew-summary-goto-message) (setq invalidp ...) (setq fld ...) (setq msg ...) (setq mark ...)) (cond (... ...) (invalidp ...) (t ... ... ... ... ... ... ... ... folders)))
  mew-summary-refile-body()
  (if report (mew-summary-refile-report) (mew-summary-refile-body))
  (cond ((not ...) (message "This command cannot be used in this mode")) ((or ... ...) (message "This command cannot be used in %s" ...)) (t (if report ... ...)))
  (mew-summary-local-or-imap (if report (mew-summary-refile-report) (mew-summary-refile-body)))
  (cond ((not ...) (message "This command cannot be used in this mode")) ((mew-summary-draft-p) (message "This command cannot be used in %s" ...)) (t (mew-summary-local-or-imap ...)))
  (mew-summary-not-in-draft (mew-summary-local-or-imap (if report ... ...)))
  (cond ((eobp) (message "No message")) ((not ...) (message "No message")) (t (mew-summary-not-in-draft ...)))
  (mew-summary-msg-or-part (mew-summary-not-in-draft (mew-summary-local-or-imap ...)))
  mew-summary-refile(nil)
  call-interactively(mew-summary-refile)

END ------8<-ここまで-8<----------8<----------8<----------8<----------

----------------------------------------------------------------------
西村　考則  (Takanori Nishimura)	(mailto:t-nisimr at example.com)
  株式会社SRA(Software Research Associates, Inc.)
    関西支社/システムサービス部/ソリューショングループ
	TEL. 06-6536-2331	FAX. 06-6536-2452