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

[Takashi P.KATOH]

かとぺ です。

こんなパッチは不可でしょうか？

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

-- 
かとぺ / 加藤 貴司

-------------- next part --------------
--- 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