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

[Yoshinari NOMURA]

のむら@九大です。

On Mon, 20 Oct 1997 16:28:06 +0900,
	"Takashi P.KATOH" <p-katoh at example.com> said:

> (setq mew-refile-auto-refile-mark-weakest t) とすると 
> auto-refile 時のみ `@' や `*' も skip するようになります
> (つまり mark が付いているものは全て skip)。
> # あいかわらず doc-string の英語が変...

このパッチですが、mew-refile-auto-refile-mark-weakestが t だと、
マークが付いていようが付いていまいが、何もしないような気がするん
ですが。

--- orig/mew-refile.el	Sun Sep 21 21:39:16 1997
+++ mew-refile.el	Sun Sep 21 21:41:45 1997
@@ -68,6 +68,10 @@
     )
   )
 
+(defvar mew-refile-auto-refile-mark-weakest 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 
 ;;
@@ -543,7 +547,8 @@
 
 	; if auto and msg is marked, don't touch it.
 	(if (and auto (or (equal mark mew-mark-refile)
-			  (equal mark mew-mark-rmm)))
+			  (equal mark mew-mark-rmm)
+			  mew-refile-auto-refile-mark-weakest))
 	    ()
 	  ; decide folders
 	  (setq learn-info 


やりたいことは以下の方ですよね。

で、変数の名前ですが、mark-weakest ってピンと来ないのは僕だけで
しょうか。mew-refile-auto-refile-skip-any-mark ぐらいかなと思っ
たんですが、いかがでしょうか。

もしくは mew-refile-guess-control の中に集約できるようにするとか。
--
nom

--- orig/mew-refile.el	Sun Sep 21 21:39:16 1997
+++ mew-refile.el	Sun Sep 21 21:41:45 1997
@@ -68,6 +68,10 @@
     )
   )
 
+(defvar mew-refile-auto-refile-mark-weakest 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 
 ;;
@@ -543,7 +547,8 @@
 
 	; if auto and msg is marked, don't touch it.
 	(if (and auto (or (equal mark mew-mark-refile)
-			  (equal mark mew-mark-rmm)))
+			  (equal mark mew-mark-rmm)
+			  (and mark mew-refile-auto-refile-mark-weakest)))

 	    ()
 	  ; decide folders
 	  (setq learn-info