[mew-dist 28139] refile-from-alist の追加条件

[ARAI Shun-ichi]

新井です。

　先日、ふと思い立ってちょっと Mew 5.2 ベースで細工しました。
　いつか spam 判定用ツールに食わせるデータにしようと思い、spam は特定の
フォルダに集めているのですが、mew-refile-from-alist に段々ゴミが溜って
きます。spam の From: なんて当てになりませんからね。
　というわけで、特定のフォルダに refile するときだけ alist に追加しない
ようにしてみました。

　もし宜しければマージを検討してみてください。なおその場合、変数名とか
説明とかの英語は直した方がいいかも知れません。英語能力ないので……。
　また、こんな細工しなくてもできるという場合、方法を教えていただけると
嬉しいです。

　それでは。

--- mew-refile.el	2008-03-06 21:54:21+09	1.1
+++ mew-refile.el	2008-03-07 10:19:38+09
@@ -22,6 +22,9 @@
 (defvar mew-refile-last-folder nil
   "Folder name previously you refiled")
 
+(defvar mew-refile-from-alist-except nil
+  "Do not add from-alist")
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
 ;;; Initialize function
@@ -446,7 +449,7 @@
 	    (throw 'match (setq folder (car chosen))))
 	  (setq chosen (cdr chosen))))
       ;; If candidate was found, I memorize it.
-      (when folder
+      (when (and folder (not (member folder mew-refile-from-alist-except)))
 	(setq mew-refile-from-alist
 	      (cons (cons from folder)
 		    (delq (assoc from mew-refile-from-alist) ;; delq is right

-- 
新井 俊一 <ARAI Shun-ichi>
mailto:hermes at example.com