;; 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)
;; "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
"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.
; (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 ]]
; ("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 ]]
;; 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
projects / elisp / wanderlust.git / blobdiff