X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=samples%2Fen%2Fdot.wl;h=c1faa3419518b2063f3887922c8cb62773be1b05;hb=ebcb57cf5a9229637bf89d022355e49a92484c55;hp=417741cfbd913edf38be3e3db851391dd37148a3;hpb=6ed5fd4b359fca51c29a7e59a723a651698855e2;p=elisp%2Fwanderlust.git

diff --git a/samples/en/dot.wl b/samples/en/dot.wl
index 417741c..c1faa34 100644
--- a/samples/en/dot.wl
+++ b/samples/en/dot.wl
@@ -31,6 +31,10 @@
 ;; Header From:
 ;(setq wl-from "Your Name <e-mail@example.com>")
 
+;; If (system-name) does not return FQDN,
+;; set following as a local domain name without hostname.
+;(setq wl-local-domain "example.com")
+
 ;; User's mail addresses.
 (setq wl-user-mail-address-list
       (list (wl-address-header-extract-address wl-from)
@@ -46,19 +50,6 @@
 	;; "ml@example.com" ...
 	))
 
-;; If (system-name) does not return FQDN,
-;; set following as a local domain name without hostname.
-;; ((system-name) "." wl-local-domain is used as domain part of Message-ID
-;; and an argument of HELO in SMTP.
-;(setq wl-local-domain "example.com")
-
-;; Specific domain part for message-id.
-;(setq wl-message-id-domain "hostname.example.com")
-
-;; Use wl-from for generating message-id.
-;; wl-message-id-use-wl-from precedes wl-local-domain and wl-message-id-domain.
-;(setq wl-message-id-use-wl-from t)
-
 ;;; [[ Server Setting ]]
 
 ;; Default IMAP4 server
@@ -177,12 +168,6 @@
 
 ;;; [[ Special Setting ]]
 
-;; bind "b" in Summary to resend-message (ala mutt's "b"ounce)
-;(add-hook 'wl-summary-mode-hook
-;	  '(lambda ()
-; 	     (define-key wl-summary-mode-map "b" 'wl-summary-resend-message)
-;	     ))
-
 ;; open unread group folder after checking.
 ;(add-hook 'wl-folder-check-entity-hook
 ;	  '(lambda ()
@@ -230,6 +215,10 @@
 ;	(setq buffers (cdr buffers))))))
 ;(run-with-idle-timer 20 t 'my-wl-auto-save-draft-buffers)
 
+;; When you encrypt message by PGP, include your public key.
+;; (to make the message visible from yourself)
+;(setq pgg-encrypt-for-me t)
+
 
 ;;; [[ Template ]]
 
@@ -369,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