[mew-dist 22311] error in mew-refile-guess-by-from-folder

[NINOMIYA Hideyuki]

こんばんは	二宮@お四国 です

X-Mailer: Mew version 3.1rc2 on XEmacs 21.4.10 (Military Intelligence)
にて Cyrus IMAP server で運用する IMAP folder %inbox にて refile
しようとすると 「Wrong type arug listp "." 」などと言われてしまいました。
コードは追っかけていないのですが取り敢えず trace です
# assoc の答えが期待と違うのかなっ ...
---8<------8<------8<------8<------8<------8<------8<------8<------8<---
  # bind (standard-output stack-trace-on-signal debug-on-signal stack-trace-on-error debug-on-error)
  nth(1 ("%inbox" . "."))
  (or (nth 1 (assoc mew-imap-inbox-folder ...)) mew-path-separator)
  # bind (case)
  mew-imap-separator(nil)
  (if (mew-folder-imapp proto) (mew-imap-separator case) mew-path-separator)
  # bind (list case proto)
  (let* ((proto ...) (case ...) (list ...) (sep ...) (qsep ...) (from ...) (user ...) (from-regex ...) (user-regex ...)) (or (mew-member-match2 from-regex list) (mew-member-match2 user-regex list)))
  # bind (addr)
  mew-refile-guess-by-from-folder-body("info at example.com")
  funcall(mew-refile-guess-by-from-folder-body "info at example.com")
  (if (and mew-refile-guess-from-me-is-special (mew-is-my-address mew-regex-my-address-list from)) (let (... ret adr) (while addrs ... ... ...) (nreverse ret)) (funcall func from))
  # bind (from)
  (let ((from ...)) (if (and mew-refile-guess-from-me-is-special ...) (let ... ... ...) (funcall func from)))
  # bind (addr func)
  mew-refile-guess-from-dispatch(mew-refile-guess-by-from-folder-body nil)
  # bind (addr)
  mew-refile-guess-by-from-folder()
  funcall(mew-refile-guess-by-from-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 last ...)
  (catch (quote last) (while funcs (if ... ... ...) (unless ... ...) (setq info ...) (unless stop ...) (setq funcs ...)))
  # bind (stop info guess ret 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))
  # bind (show-all auto)
  mew-refile-guess(nil)
  (setq learn-info (mew-refile-guess auto))
  # (unwind-protect ...)
  (save-excursion (set-buffer buf) (mew-sinfo-set-case case) (mew-sinfo-set-proto proto) (setq learn-info (mew-refile-guess auto)))
  # bind (fld lst lst-lst singlep cands ret folders learn-info case proto)
  (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 ...) (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)))
  # bind (exfld auto cur-folders msg buf)
  mew-refile-decide-folders(#<buffer " *Mew* "> "1703" 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))
  # bind (invalidp delbuf tmp fld learn-info buf mark cur-folders folders folder msg)
  (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)))
  # bind (exfld no-mark no-msg auto exp-flds)
  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 ...)))
  # bind (report)
  mew-summary-refile(nil)
  # bind (command-debug-status)
  call-interactively(mew-summary-refile)
  # (condition-case ... . error)
  # (catch top-level ...)
---8<------8<------8<------8<------8<------8<------8<------8<------8<---
--─
ICQ UIN:57442553                          二宮 秀幸@愛媛 鬼北 広見町
PGP-Fingerprint:  6C59 EC08 5B23 6490 44D0  7CD3 DA40 219F 7114 8553
PGP-Public-Key:    http://user.shikoku.ne.jp/~nin/pgp/public-key.txt
mailto:nin at example.com   http://user.shikoku.ne.jp/~nin/index.html
mailto:nin at example.com http://home.jp.freebsd.org/~nin/index.html