X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=samples%2Fen%2Fdot.wl;h=c1faa3419518b2063f3887922c8cb62773be1b05;hb=ebcb57cf5a9229637bf89d022355e49a92484c55;hp=1e73622065b85946dde4b8ec1ebc5108cf9a2ef7;hpb=63a3dc41f681fdf348f8ce7992654df76d556b30;p=elisp%2Fwanderlust.git diff --git a/samples/en/dot.wl b/samples/en/dot.wl index 1e73622..c1faa34 100644 --- a/samples/en/dot.wl +++ b/samples/en/dot.wl @@ -31,6 +31,10 @@ ;; Header From: ;(setq wl-from "Your Name ") +;; 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 @@ -193,8 +184,13 @@ "x-mail-count" "x-ml-count" "x-sequence")) ;; ML message displays ML name and ML sequence number in subject. -(setq wl-summary-line-format "%n%T%P%M/%D(%W)%h:%m %t%[ %17f %] %#%~%s") -;(setq wl-summary-line-format "%T%P%M/%D %h:%m %-4S %[ %17f %] %t%C%#%~%s") +(setq wl-summary-line-format "%n%T%P%M/%D(%W)%h:%m %t%[%17(%c %f%) %] %#%~%s") +;; Set summary line format according to folder name. +;(setq wl-folder-summary-line-format-alist +; '(("^%inbox\\.emacs\\.wl$" . +; "%-5l%T%P%M/%D %h:%m %-4S %[ %17f %] %t%C%s") +; ("^%" . "%T%P%M/%D %h:%m %-4S %[ %17f %] %t%C%s") +; ("^+" . "%n%T%P%M/%D %h:%m %-4S %[ %17f %] %t%C%s"))) ;; imput asynchronously. ;; (utils/im-wl.el is needed to be installed. @@ -219,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 ]] @@ -274,14 +274,31 @@ ; ("Newsgroups" . (nil nil ("Newsgroups"))) ; ("Reply-To" . (("Reply-To") nil nil)) ; ("Mail-Reply-To" . (("Mail-Reply-To") nil nil)) +; (wl-draft-self-reply-p . (("To") ("Cc") nil)) ; ("From" . (("From") nil nil)))) -;; "C-u a" (with-argument) reply to all. -;(setq wl-draft-reply-with-argument-list -; '(("Followup-To" . (("From") nil ("Followup-To"))) -; ("Newsgroups" . (("From") nil ("Newsgroups"))) +;; old defaults < 2.11.0 +;(setq wl-draft-reply-without-argument-list +; '(((wl-draft-self-reply-p +; "Followup-To") . (("To") ("Cc") ("Followup-To"))) +; ((wl-draft-self-reply-p +; "Newsgroups") . (("To") ("Cc") ("Newsgroups"))) +; ((wl-draft-self-reply-p +; "From") . (("To") ("Cc") nil)) +; ("Followup-To" . (nil nil ("Followup-To"))) ; ("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups"))) +; ("Reply-To" . (("Reply-To") ("To" "Cc" "From") ("Newsgroups"))) ; ("From" . (("From") ("To" "Cc") ("Newsgroups"))))) +;(setq wl-draft-reply-with-argument-list +; '(((wl-draft-self-reply-p +; "Followup-To") . (("To") ("Cc") ("Followup-To"))) +; ((wl-draft-self-reply-p +; "Newsgroups") . (("To") ("Cc") ("Newsgroups"))) +; ((wl-draft-self-reply-p +; "From") . (("To") ("Cc") nil)) +; ("Reply-To" . (("Reply-To") nil nil)) +; ("Mail-Reply-To" . (("Mail-Reply-To") nil nil)) +; ("From" . (("From") nil nil)))) ;;; [[ Message Display Settings ]] @@ -341,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