[Mew-dist 2561] mew-summary-auto-refile (Re: mew-my-refile.el)

[YAMAGUCHI, Shuhei]

やまぐち＠ねっとらぴゅたの住人、です。

>>> In article <19971016111343T.p-katoh at example.com>,
>>>    "Takashi P.KATOH" <p-katoh at example.com> writes:

  p-katoh> 現在は Mew 自体に mew-summary-auto-refile というのがあるので、
  p-katoh> それを使うのがよいと思います。
  p-katoh> info にものってますので、使い方はそちらを見て下さい。

これが出た初期の頃試してみたらエラーになってしまい、それ以来試してなかっ
たのですが、今回久しぶりに試してもやっぱりエラーになりました。 ^^;
＃mew-1.92b3です。

(setq mew-refile-ctrl-multi nil)
(setq mew-refile-guess-control
      '(mew-refile-guess-by-alist
	mew-refile-ctrl-auto-boundary
	mew-refile-guess-by-newsgroups
	mew-refile-guess-by-folder
	mew-refile-ctrl-throw
	mew-refile-guess-by-default))
(setq mew-refile-guess-alist 略)

上記の設定で使用すると、mew-refile-guess-alistに引っ掛からないメールで、
以下のようなエラーになります。

Signaling: (wrong-type-argument arrayp nil)
  mew-expand-folder(nil)
  mew-folder-check(nil)
  mew-refile-decide-folders("*Mew message*0" "4" nil nil t)
  mew-summary-refile(nil t)
  byte-code("....$  ;; 文字化けするため省略
  mew-summary-auto-refile()
  call-interactively(mew-summary-auto-refile)
  execute-extended-command(nil)
* call-interactively(execute-extended-command)

少し追ってみたら、mew-refile-decide-foldersから呼ばれている
mew-refile-guessが、以下のような値を返しているようでした。
((nil) (mew-refile-guess-by-alist) (mew-refile-guess-by-newsgroups) ...)

これでいいのかどうかわかりませんが、一応パッチをつけておきます。

でわでわ
-- 
yamagus at example.com / やまぐち＠ねっとらぴゅたの住人
  yamagus at example.com / 山口 修平
PGP-Fingerprint: 25 0F 6F E1 57 AD 56 08  3A BC D0 9B 48 AF 31 7A
-------------- next part --------------
--- mew-refile.el.orig	Fri Sep 26 19:49:28 1997
+++ mew-refile.el	Sat Oct 18 10:56:36 1997
@@ -591,8 +591,9 @@
        (mew-input-folders (nth 0 (car learn-info))))))
      ; check folder existance.
      (while folders
-       (if (mew-folder-check (car folders))
-	   (setq ret (append ret (list (car folders)))))
+       (and (car folders)
+	    (mew-folder-check (car folders))
+	    (setq ret (append ret (list (car folders)))))
        (setq folders (cdr folders)))
      (cons ret (cdr learn-info)) ; return value
      ))