[Mew-dist 09234] Re: Refiling by alist

[Yoshinari NOMURA]

On Tue, 8 Jun 1999 11:24:58 +0900,
	Kanako Shoji <nikorin at example.com> said:

> (setq  mew-refile-guess-alist
>     '(
>       # メールマガジンのIDヘッダによる分類
>       ("X-Mag2Id:"
>        ("0000011982" . "+ML/mag2/test")  
>       )
>       # (略)
>       # メールマガジンの関係メールの分類
>       # "hoge at example.com"の形で来る
>       ("From:"
>        ("tegami.com" . "+ML/mag2")
:
> b28では，希望どおりにできたのですが，b32では "X-Mag2Id:" ヘッダが
> "0000011982" のメールのRefile候補が "+ML/mag2/test" にならず，
> "+ML/mag2"になりました．

On Tue, 8 Jun 1999 12:06:30 +0900,
	HEO SeonMeyong <seirios at example.com> said:

> 	Mew-snap-b28 から b32 に入れ換えました。
> 	この間に refile のアルゴリズムって変化しましたか？
> 

すみません。同じ原因です。以下のパッチで治ると思います。
--
nom

--- mew-refile.el.orig	Thu Jun  3 23:04:13 1999
+++ mew-refile.el	Tue Jun  8 12:26:24 1999
@@ -126,7 +126,7 @@
 	;; shape the guess: (guess1 guess2 ...)
 	;;            info: (info1 info2 ...)
 	(setq info (cons (cons (car funcs) ret) info))
-	(if (not stop) (setq guess (append ret guess)))
+	(if (not stop) (setq guess (append (nreverse ret) guess)))
 	(setq funcs (cdr funcs))))
     (setq info  (nreverse info))
     (setq guess (nreverse guess))