[mew-dist 28505] Re: 自分が書いたメッセージがrefileできない

[Yasushi OHYAMA]

白井さん、大山です。

Sender: Hideyuki SHIRAI (白井秀行) <shirai at example.com> 様
As: [mew-dist 28503] Re: 自分が書いたメッセージがrefileできない
Time: Tue, 10 Jun 2008 16:30:45 +0900 (JST)

> エラーが出るときは
> 
> http://www.mew.org/bugreport/index.html.ja
> 
> を読んでバックトレースを取るのが一番ですよ。*.elc を消すとなお良
> しです。

大変失礼しました。サイトは隅から隅まで読まないとだめですね。
バックトレースを添付します。

> # おそらく、mew-refile-guess-alist がなにか間違っているような気
> # がしますが。。。

ちょっといじってみます。
ありがとうございました。

-- 
OHYAMA Yasushi <paf03637 at example.com>


-------------- next part --------------
Debugger entered--Lisp error: (wrong-type-argument listp "To:")
  car("To:")
  (setq key (car rl))
  (while --cl-dolist-temp-- (setq rl (car --cl-dolist-temp--)) (setq key (car rl)) (setq alist (cdr rl)) (cond (... ...) (... ...) (... ...)) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
  (let ((--cl-dolist-temp-- rule) rl) (while --cl-dolist-temp-- (setq rl ...) (setq key ...) (setq alist ...) (cond ... ... ...) (setq --cl-dolist-temp-- ...)) nil)
  (catch (quote --cl-block-nil--) (let (... rl) (while --cl-dolist-temp-- ... ... ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... rl) (while --cl-dolist-temp-- ... ... ... ... ...) nil))
  (dolist (rl rule) (setq key (car rl)) (setq alist (cdr rl)) (cond (... ...) (... ...) (... ...)))
  (let (key alist val f-or-r header ent ret) (dolist (rl rule) (setq key ...) (setq alist ...) (cond ... ... ...)) (nreverse ret))
  mew-refile-guess-by-alist1(("To:" ("ab05ef at example.com" . "+ml/cafe_roman/support")))
  (setq ent (mew-refile-guess-by-alist1 f-or-r))
  (cond ((stringp f-or-r) (setq ent ...)) ((listp f-or-r) (setq ent ...)))
  (progn (cond (... ...) (... ...)))
  (if (and (stringp val) (string-match val header)) (progn (cond ... ...)))
  (when (and (stringp val) (string-match val header)) (cond (... ...) (... ...)))
  (while --cl-dolist-temp-- (setq al (car --cl-dolist-temp--)) (setq val (mew-alist-get-key al)) (setq f-or-r (mew-alist-get-value al)) (setq ent nil) (when (and ... ...) (cond ... ...)) (when ent (if ... ... ...)) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
  (let ((--cl-dolist-temp-- alist) al) (while --cl-dolist-temp-- (setq al ...) (setq val ...) (setq f-or-r ...) (setq ent nil) (when ... ...) (when ent ...) (setq --cl-dolist-temp-- ...)) nil)
  (catch (quote --cl-block-nil--) (let (... al) (while --cl-dolist-temp-- ... ... ... ... ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... al) (while --cl-dolist-temp-- ... ... ... ... ... ... ...) nil))
  (dolist (al alist) (setq val (mew-alist-get-key al)) (setq f-or-r (mew-alist-get-value al)) (setq ent nil) (when (and ... ...) (cond ... ...)) (when ent (if ... ... ...)))
  (cond ((eq key t) (mew-addq ret ...)) ((eq key nil) (or ret ...)) ((setq header ...) (dolist ... ... ... ... ... ...)))
  (while --cl-dolist-temp-- (setq rl (car --cl-dolist-temp--)) (setq key (car rl)) (setq alist (cdr rl)) (cond (... ...) (... ...) (... ...)) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
  (let ((--cl-dolist-temp-- rule) rl) (while --cl-dolist-temp-- (setq rl ...) (setq key ...) (setq alist ...) (cond ... ... ...) (setq --cl-dolist-temp-- ...)) nil)
  (catch (quote --cl-block-nil--) (let (... rl) (while --cl-dolist-temp-- ... ... ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... rl) (while --cl-dolist-temp-- ... ... ... ... ...) nil))
  (dolist (rl rule) (setq key (car rl)) (setq alist (cdr rl)) (cond (... ...) (... ...) (... ...)))
  (let (key alist val f-or-r header ent ret) (dolist (rl rule) (setq key ...) (setq alist ...) (cond ... ... ...)) (nreverse ret))
  mew-refile-guess-by-alist1((("X-AIST-SPC:" ("SPAM" . "+spam")) ("Cc:" ("knossos at example.com" . "+trash") ("isomura.kouki at example.com" . "+trash") ("tanedaic at example.com" . "+trash") ("ghh11666 at example.com" . "+trash") ("czb04213 at example.com" . "+trash") ("rxa02713 at example.com" . "+trash") ("momo.hirate at example.com" . "+trash") ("khb13064 at example.com" . "+trash") ("design.watanabe at example.com" . "+trash") ("sugano-plaster at example.com" . "+trash") ("aitann at example.com" . "+trash") ("hhc01067 at example.com" . "+trash") ("nqb49193 at example.com" . "+trash")) ("Subject:" ("cafe" . "+ml/cafe_roman") ("kisokisoeigo" . "+ml/kisokisoeigo")) ("To:" ("shimakage at example.com" . "+from/hayasakarikoh") ("stsxh953 at example.com" . "+from/etsuko") ("hiro-733 at example.com" . "+from/hiro") ("suzuki-masaaki at example.com" . "+aist/bio") ("we_can_revolution_with_daisabaku at example.com" . "+ml/daisabaku") ("mynoveler_naru at example.com" . "+from/akimoto") ("yumetaba-board at example.com" . "+ml/yumetaba-kanri") ("yumetaba at example.com" . "+ml/yumetaba") ("shimada-t at example.com" . "+aist/hokkaido") ("novel_write at example.com" . "+ml/novel_write") ("rigb_r at example.com" . "+aist/bio") ("fraise.citron-bonbon at example.com" . "+from/meme") ("sweet_seiko at example.com" . "+from/seiko") ("s_masako at example.com" . "+from/masako") ("kaori at example.com" . "+from/kao") ("basic-english at example.com" . "+ml/basicenglish") ("meadow-users-jp at example.com" . "+ml/meadow") ("ZAN01231 at example.com" . "+from/tsubuyaki") ("ab05ef at example.com" . "+ml/cafe_roman/support") ("nohohon-jm at example.com" . "+from/miyuki-nakajima") ("tatsumixx at example.com" . "+from/tatsumi") ("irumagawa at example.com" . "+from/irumagawa") ("8083ueda at example.com" . "+from/ruri") ("yorikoala at example.com" . "+from/yori") ("eng_companion at example.com" . "+ml/eng_com") ("asak at example.com" . "+from/kakizaki") ("lets-namura at example.com" . "+ml/yumetaba") ("flo_kho at example.com" . "+from/flo_kho") ("erina-77420 at example.com" . "+from/beatmama") ("hokuto3-2 at example.com" . "+ml/hokuto") ("yum-yam at example.com" . "+external/HSS") ("kagakukougaku at example.com" . "from/kaiin") ("kyuuyo at example.com" . "+from/kyuuyo") ("koizumi at example.com" . "+news/kantei") ("sex-therapy at example.com" . "+from/sex-therapy") ("basic-english" . "+ml/basicenglish") ("romichan-katsuchan at example.com" . "+from/hitomi") ("kemu at example.com" . "+from/kemu") ("dogahana at example.com" . "+from/ta_da") ("sido82jp at example.com" . "+external/hokudai/") ("kushinoh at example.com" . "+external/hokudai/") ("mm-mizuno at example.com" . "+from/mizuno") ("m.ikegami at example.com" . "+aist/bio/room-117") ("doremizj at example.com" . "+from/doremizj") ("shopmgr at example.com" . "+shopping") ("shopmail at example.com" . "+shopping") ("takahashi at example.com" . "+from/keisoku-riken") ("rigb_m at example.com" . "+aist/bio") ("buduki at example.com" . "+aist/bio") ...) ("From:" ("News at example.com" . "+from/veoh") ("info at example.com" . "+from/@engineer") ("shimakage at example.com" . "+from/hayasakarikoh") ("stsxh953 at example.com" . "+from/etsuko") ("hiro-733 at example.com" . "+from/hiro") ("do_not_reply at example.com" . "+shopping/itunes") ("suzuki-masaaki at example.com" . "+aist/bio") ("mynoveler_naru at example.com" ...) ("pon at example.com" . "+shopping") ("@PimlicoSoftware.com" . "+trash") ("info at example.com" . "+shopping/justsystem") ("shimada-t at example.com" . "+aist/hokkaido") ("mfnsupport at example.com" . "+from/mapfan") ("marketplace-messages at example.com" . "+shopping/amazon") ("Intel.Registration.Center at example.com" . "+from/intel") ("palm at example.com" . "+trash") ("oshirase at example.com" . "+trash") ("support at example.com" . "+from/jugem") ("kagakukougaku at example.com" . "+from/kagakukougaku") ("mailman-owner at example.com" . "+ml/mew-dist") ("magazine at example.com" . "+trash") ("borland at example.com" . "+trash") ("news at example.com" . "+from/corel") ("user at example.com" . "+from/gakugei") ("tomtomnews at example.com" . "+trash") ("sales at example.com" . "+trash") ("dataplus-info at example.com" . "+from/casio") ("fraise.citron-bonbon at example.com" . "+from/meme") ("e-update at example.com" . "+trash") ("kantei at example.com" . "+from/kantei") ("hpcs_sales at example.com" . "+trash") ("s.ohgiya at example.com" . "+aist/bio") ("info_amember at example.com" . "+from/ameblo") ("giya at example.com" . "+external/HSS") ("trcbook at example.com" . "+trash") ("info-t at example.com" . "+trash") ("specialoffers at example.com" . "+trash") ("regnet at example.com" . "+trash") ("vb-evaluate at example.com" . "+from/virus-buster") ("@lightstone.co.jp" . "+lightstone") ("News_Japan at example.com" . "+trash") ("jimu at example.com" . "+from/jsbi") ("store-news at example.com" . "+trash") ("jmbcyberflash at example.com" . "+trash") ("noreply at example.com" . "+from/nature") ("BarnesandNobleEmail at example.com" . "+trash") ("kyuuyo at example.com" . "+aist/kyuuyo") ("yuko-yasuda at example.com" . "+aist/bio") ("vaio-e-news at example.com" . "+trash") ...) ("do_not_reply at example.com" . "+shopping") ("news at example.com" . "+trash") ("itunes_jp at example.com" . "+from/itunes") ("eboxshop at example.com" . "+trash") ("swmail at example.com" . "+from/swmail") ("121news at example.com" . "+from/121news") ("nifty-info at example.com" . "+from/nifty") ("jalbargainfare at example.com" . "+trash") ("vaio-e-news at example.com" . "+trash") ("newsletters at example.com" . "+trash") ("specialoffers at example.com" . "+trash") ("asak at example.com" . "+from/kakizaki") ("flo_kho at example.com" . "+from/flo_kho") ("erina-77420 at example.com" . "+from/beatmama") ("sex-therapy at example.com" . "+from/sex-therapy") ("romichan-katsuchan at example.com" . "+from/hitomi") ("dogahana at example.com" . "+from/ta_da") ("sido82jp at example.com" . "+external/hokudai/") ("kushinoh at example.com" . "+external/hokudai/") ("mm-mizuno at example.com" . "+from/mizuno") ("special-offers at example.com" . "+trash") ("specialoffers at example.com" . "+trash") ("ninjyoC21sQ at example.com" . "+trash") ("m.ikegami at example.com" . "+aist/bio/room-117") ("doremizj at example.com" . "+from/doremizj") ("info at example.com" . "+shopping") ("mymgr at example.com" . "+shopping") ("shopmgr at example.com" . "+shopping") ("shopmail at example.com" . "+shopping") ("takahashi at example.com" . "+from/keisoku-riken") ("dogahana at example.com" . "+from/ta_da") ("mizutani.fumio at example.com" . "+aist/bio") ("m.ikegami at example.com" . "+aist/bio/room-117") ("s.ohgiya at example.com" . "+from/ohgiya") ("s.ohgiya at example.com" . "+aist/bio/group") ("t-sahara at example.com" . "+aist/bio/group") ("tommarvinmailXDD05 at example.com" . "+trash") ("TOM MARVIN" . "+trash") ("jmbcyberflash at example.com" . "+trash") ("NAOTO YAMAMOTO" . "+trash") ("naonao at example.com" . "+trash") ("ee-adultmaganet.com" . "+trash") ("ashinaga_ojisan_987 at example.com" . "+trash") ("gigascall at example.com" . "+trash") ("kakabapanda at example.com" . "+trash") ...))
  mew-refile-guess-by-alist()
  funcall(mew-refile-guess-by-alist)
  (setq ret (funcall func))
  (if (string-match "ctrl" (symbol-name func)) (when (setq ret ...) (setq stop t) (or show-all ...)) (setq ret (funcall func)))
  (while --cl-dolist-temp-- (setq func (car --cl-dolist-temp--)) (if (string-match "ctrl" ...) (when ... ... ...) (setq ret ...)) (unless (listp ret) (setq ret ...)) (setq info (nconc info ...)) (unless stop (dolist ... ...)) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
  (let ((--cl-dolist-temp-- funcs) func) (while --cl-dolist-temp-- (setq func ...) (if ... ... ...) (unless ... ...) (setq info ...) (unless stop ...) (setq --cl-dolist-temp-- ...)) nil)
  (catch (quote --cl-block-nil--) (let (... func) (while --cl-dolist-temp-- ... ... ... ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... func) (while --cl-dolist-temp-- ... ... ... ... ... ...) nil))
  (dolist (func funcs) (if (string-match "ctrl" ...) (when ... ... ...) (setq ret ...)) (unless (listp ret) (setq ret ...)) (setq info (nconc info ...)) (unless stop (dolist ... ...)))
  (catch (quote last) (dolist (func funcs) (if ... ... ...) (unless ... ...) (setq info ...) (unless stop ...)))
  (let ((case-fold-search t) (funcs mew-refile-guess-control) ret guess info stop) (catch (quote last) (dolist ... ... ... ... ...)) (setq guess (nreverse guess)) (if (not mew-refile-ctrl-multi) (setq guess ...)) (cons guess info))
  mew-refile-guess(t)
  (setq learn-info (mew-refile-guess auto))
  (save-excursion (set-buffer buf) (setq learn-info (mew-refile-guess auto)))
  (let ((proto mew-inherit-refile-proto) (case mew-inherit-refile-case) learn-info folders ret cands singlep lst-lst) (save-excursion (set-buffer buf) (setq learn-info ...)) (if auto (setq folders ...) (cond ... ... ...) (setq cands ...) (when exfld ... ...) (setq cands ...) (unless cands ...) (setq folders ...)) (setq lst-lst (mapcar ... folders)) (dolist (lst lst-lst) (dolist ... ...)) (cons (nreverse ret) (cdr learn-info)))
  mew-refile-decide-folders(#<buffer  *Mew* > "7" nil t nil)
  (setq learn-info (mew-refile-decide-folders buf msg cur-folders auto exfld))
  (condition-case nil (setq learn-info (mew-refile-decide-folders buf msg cur-folders auto exfld)) (quit (goto-char pos)))
  (if exp-flds (setq folders exp-flds) (unless (or auto ...) (mew-summary-display)) (setq buf (mew-cache-hit fld msg)) (unless buf (save-excursion ... ... ... ... ... ...)) (when (and ... ...) (save-excursion ... ...)) (condition-case nil (setq learn-info ...) (quit ...)) (setq folders (car learn-info)))
  (cond ((and mark ...) (or no-msg ...) nil) (invalidp (or no-msg ...) nil) (t (if exp-flds ... ... ... ... ... ... ...) (dolist ... ...) (setq folders ...) (setq folders ...) (unless no-mark ...) (if delbuf ...) (setq mew-refile-last-folder folders) (set-buffer-modified-p nil)))
  (let ((pos ...) fld msg folders cur-folders mark buf learn-info tmp delbuf invalidp folders-str mew-inherit-refile-proto mew-inherit-refile-case) (mew-summary-goto-message) (when (mew-sumsyn-match mew-regex-sumsyn-short) (setq fld ...) (setq msg ...) (setq invalidp ...)) (setq mew-inherit-refile-case (mew-case:folder-case fld)) (setq mew-inherit-refile-proto (mew-case:folder-folder fld)) (setq mark (mew-summary-get-mark)) (cond (... ... nil) (invalidp ... nil) (t ... ... ... ... ... ... ... ...)) (goto-char pos) folders)
  mew-summary-refile-body(nil t no-msg)
  (or (and mark (or mew-refile-auto-refile-skip-any-mark ...)) (mew-summary-refile-body nil t (quote no-msg)))
  (if mew-mark-review-only (and mark (char-equal mark mew-mark-review) (mew-summary-refile-body nil t ...)) (or (and mark ...) (mew-summary-refile-body nil t ...)))
  (while (re-search-forward mew-regex-sumsyn-valid nil t) (setq mark (mew-summary-get-mark)) (if mew-mark-review-only (and mark ... ...) (or ... ...)) (if (= ... 0) (message "Auto refiling...%s%%" ...)) (setq line (1+ line)) (forward-line))
  (save-window-excursion (goto-char (point-min)) (while (re-search-forward mew-regex-sumsyn-valid nil t) (setq mark ...) (if mew-mark-review-only ... ...) (if ... ...) (setq line ...) (forward-line)))
  (if (and mew-refile-auto-refile-confirm (not ...)) (message "Not refiled") (message "Auto refiling...") (save-window-excursion (goto-char ...) (while ... ... ... ... ... ...)) (message "Auto refiling...done"))
  (let ((mew-use-highlight-x-face nil) (lines ...) (case-fold-search nil) (line 1) (mark nil) msg) (cond (mew-mark-review-only ...) (mew-refile-auto-refile-skip-any-mark ...) (t ...)) (if (and mew-refile-auto-refile-confirm ...) (message "Not refiled") (message "Auto refiling...") (save-window-excursion ... ...) (message "Auto refiling...done")))
  (cond ((not ...) (message "This command cannot be used in this mode")) ((or ... ...) (message "This command cannot be used in %s" ...)) (t (mew-decode-syntax-delete) (let ... ... ...)))
  (mew-summary-local-or-imap (mew-decode-syntax-delete) (let (... ... ... ... ... msg) (cond ... ... ...) (if ... ... ... ... ...)))
  (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 (mew-decode-syntax-delete) (let ... ... ...)))
  (cond ((not ...) (message "This command cannot be used in this folder")) (t (mew-summary-not-in-draft ...)))
  (mew-pickable (mew-summary-not-in-draft (mew-summary-local-or-imap ... ...)))
  (mew-summary-refilable (mew-decode-syntax-delete) (let (... ... ... ... ... msg) (cond ... ... ...) (if ... ... ... ... ...)))
  mew-summary-auto-refile(nil)
  call-interactively(mew-summary-auto-refile)