[Mew-dist 2630] Re: mew-summary-auto-refile

[Takashi P.KATOH]

かとぺ です。

From: Yoshinari NOMURA <nom at example.com>
Subject: [Mew-dist 2620] Re: mew-summary-auto-refile
> のむら@九大です。
>> (setq mew-refile-auto-refile-mark-weakest t) とすると 
>> auto-refile 時のみ `@' や `*' も skip するようになります
>> (つまり mark が付いているものは全て skip)。
>> # あいかわらず doc-string の英語が変...
> このパッチですが、mew-refile-auto-refile-mark-weakestが t だと、
> マークが付いていようが付いていまいが、何もしないような気がするん
> ですが。

ごめんなさい。その通りです (_o_)
# 何故か自分の mew-refile.el はちゃんとなってるのですが...


>	    mew-refile-auto-refile-skip-any-mark ぐらいかなと思っ
> たんですが、いかがでしょうか。

いいですね。
# mew-auto-refile-skip-any-mark でもいいかな、とも思いますが、
# その辺はおまかせします。

doc-string も適当に直していただけると嬉しいです f(^^;

というわけで、念の為 mew-1.92b6 へのパッチをつけときます。
# 今度はポカしてませんように...

-- 
かとぺ / 加藤 貴司

-------------- next part --------------
diff -ur mew-1.92,orig/mew-refile.el mew-1.92/mew-refile.el
--- mew-1.92,orig/mew-refile.el	Tue Oct 21 16:38:11 1997
+++ mew-1.92/mew-refile.el	Wed Oct 22 15:55:50 1997
@@ -68,6 +68,10 @@
     )
   )
 
+(defvar mew-refile-auto-refile-skip-any-mark nil
+  "*If non nil, the strength of `o' is weakest when auto-refiling,
+i.e. when the message marked, don't refile it in auto-refiling.")
+
 ;;
 ;; Guess functions 
 ;;
@@ -626,7 +630,8 @@
 
 	; if auto and msg is marked, don't touch it.
 	(if (and auto (or (equal mark mew-mark-refile)
-			  (equal mark mew-mark-delete)))
+			  (equal mark mew-mark-delete)
+			  (and mark mew-refile-auto-refile-skip-any-mark)))
 	    ()
 	  ; decide folders
 	  (setq learn-info