[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[mhc:01717] Debugger entered--Lisp error: (wrong-type-argument listp "acosis.com")



いきなりのメール失礼します。

かずさんにメールを出したのですが返事がもらえるかどうかわからないので
白井さんにメールを書きました。


cvs up 後 1Z した上で refile すると
以下のようエラーになりrefileできません。
バックトレースからは
mew-local-folder-alist が rassoc用に形式がかわったのに
mew-assoc-case-equalが対応してないためのようにみえます。
なにか必要な手順をぬかしているでしょうか?

━━━━━━━━━━━━━━ここから━━━━━━━━━━━━━━
Debugger entered--Lisp error: (wrong-type-argument listp "acosis.com")
  nth(1 ("+acosis.com" . "acosis.com"))
  (setq n (nth nth a))
  (while alist (setq a (car alist)) (setq n (nth nth a)) (if (or ... ...) (throw ... a)) (setq alist (cdr alist)))
  (catch (quote loop) (while alist (setq a ...) (setq n ...) (if ... ...) (setq alist ...)))
  (let ((skey ...) a n) (catch (quote loop) (while alist ... ... ... ...)))
  mew-assoc-case-equal("mhc@xxxxxxxxxxxxx" (("+acosis.com" . "acosis.com")  ...) 1)
  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 ...) (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* <2>> "4727" 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)
━━━━━━━━━━━━━━ここまで━━━━━━━━━━━━━━

--
鯉江英隆 <hide@xxxxxxxx>