[mew-dist 28321] <special> in mew-refile-guess-alist

[IDE Kazumi]

井出と申します。

CVS HEADのmewで、新しい書式で書いた<special>を含むRULEを
mew-refile-guess-alistに設定すると、
emacs22.1.92(FreeBSD portsのemacs-22.1_2)では
alistによるrefileがうまく動作しません。

jinfoのby-alistにあるmew-refile-guess-alistの設定例を試してみると、
他の条件に当てはまらないメールでは
mew-input-refile-folders: Wrong type argument: arrayp, ("+unknown")
が出てしまいます。

添付のパッチをでっちあげてみました。自宅のemacs22.1.92(FreeBSD portsの
emacs-22.1_2)では‘.’の有無に関わらず<special>が動くようになりました。

また、CVS HEADのjinfoのby-alistには、「<value> と<folder> を `.' で
区切るのを忘れないで下さい。」というのが残っていますがjinfoのパッチ
ミスで、[mew-dist 28284]にあるようにリストでも可ということで良いの
ですね。

--
なんとかなるよ。絶対、大丈夫だよ。- de JL1KUF : IDE Kazumi
-------------- next part --------------
*** mew-refile.el.orig	2008-04-13 14:50:23.000000000 +0900
--- mew-refile.el	2008-04-13 16:51:12.000000000 +0900
***************
*** 230,237 ****
--- 230,239 ----
        (setq alist (cdr rl))
        (cond
         ((eq key t)
+ 	(if (listp alist) (setq alist (car alist)))
  	(mew-addq ret alist))
         ((eq key nil)
+ 	(if (listp alist) (setq alist (car alist)))
  	(or ret (mew-addq ret alist)))
         ((setq header (mew-header-get-value key))
  	(dolist (al alist)