(setq wl-message-ignored-field-list '(".*")) (setq wl-message-visible-field-list '("^To" "^From" "^Subject" "^Date" "^Cc" ))
(setq wl-stay-folder-window t)
(setq wl-summary-line-format "%n%T%P%1@%Y/%M/%D(%W)%h:%m %t%[%17(%c %f%) %] %#%~%s") (setq wl-summary-line-format-spec-alist (append wl-summary-line-format-spec-alist '((?@ (wl-summary-line-attached)))))
(setq wl-draft-reply-without-argument-list '(("Followup-To" . (nil nil ("Followup-To"))) ("Newsgroups" . (nil nil ("Newsgroups"))) ("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups"))) ("Reply-To" . (("Reply-To") ("To" "Cc") nil)) ("From" . (("From") ("To" "Cc") ("Newsgroups"))) ))
(custom-set-faces '(wl-highlight-folder-path-face ((t (:underline t)))) '(wl-highlight-summary-displaying-face ((t (:background "light goldenrod")))) )
(setq wl-summary-auto-refile-skip-marks nil)
M-x customize-group RET wl RET