Sync with the revision 1.52 of samples/ja/dot.wl.

diff --git a/samples/en/dot.wl b/samples/en/dot.wl
index b59ea0a..c1faa34 100644 (file)
--- a/samples/en/dot.wl
+++ b/samples/en/dot.wl
@@ -358,4 +358,52 @@
 ;; nil means all message is auto-refiled.
 ;(setq wl-summary-auto-refile-skip-marks nil)
 
+;;; [[ Spam Filter Settings ]]
+
+;; Use bogofilter as a back end.
+;(setq elmo-spam-scheme 'bogofilter)
+
+;(require 'wl-spam)
+
+;; Judge *first* whether a message is a spam
+;; when `o' (wl-summary-refile) is performed in a summary buffer.
+;(unless (memq 'wl-refile-guess-by-spam wl-refile-guess-functions)
+;  (setq wl-refile-guess-functions
+;      (cons #'wl-refile-guess-by-spam 
+;            wl-refile-guess-functions)))
+
+;; Judge *first* whether a message is a spam
+;; when `C-o' (wl-summary-auto-refile) is performed in a summary buffer.
+;(unless (memq 'wl-refile-guess-by-spam wl-auto-refile-guess-functions)
+;  (setq wl-auto-refile-guess-functions
+;      (cons #'wl-refile-guess-by-spam 
+;            wl-auto-refile-guess-functions)))
+
+;; When you want to give priority to refile-rule (same as spamfilter-wl.el
+;; or bogofilter-wl.el), please confirm the setup here.
+;(unless (memq 'wl-refile-guess-by-spam wl-auto-refile-guess-functions)
+;  (setq wl-auto-refile-guess-functions
+;      (append wl-auto-refile-guess-functions
+;              '(wl-refile-guess-by-spam))))
+
+;; In moving to each summary, judge whether a message is a spam
+;; according to a setup of wl-spam-auto-check-policy-alist.
+;(add-hook 'wl-summary-prepared-pre-hook #'wl-summary-auto-check-spam)
+
+;; Attach a refile mark to the message judged to be spam after going into +inbox.
+;(setq wl-spam-auto-check-policy-alist '(("\\+inbox" . refile)))
+
+;; Make the spam processor learn at the time of execution of refile.
+;; Even if the following setup was carried out, it does not always learn.
+;; See the docstring of wl-spam-undecided-folder-regexp-list and 
+;; wl-spam-ignored-folder-regexp-list in wl-spam.el for details.
+;(let ((actions wl-summary-mark-action-list)
+;      action)
+;  (while actions
+;    (setq action  (car actions)
+;        actions (cdr actions))
+;    (when (eq (wl-summary-action-symbol action) 'refile)
+;      (setf (nth 4 action) 'wl-summary-exec-action-refile-with-register)
+;      (setq actions nil))))
+
 ;;; dot.wl ends here