(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)
(setq mime-save-directory "c:/temp/a")
M-x customize-group RET wl RET
M-x wl-summary-pack-number
M-x elmo-passwd-alist-save
(setq wl-summary-exit-next-move nil)
(setq wl-plugged nil)
(setq wl-thread-indent-level 2)
(setq wl-thread-have-younger-brother-str "+"
wl-thread-youngest-child-str "+"
wl-thread-vertical-str "|"
wl-thread-horizontal-str "-"
wl-thread-space-str " ")
(setq wl-summary-indent-length-limit nil)
(setq wl-summary-width nil)
(setq wl-subject-length-limit nil)
(setq wl-interactive-exit nil)
(setq wl-interactive-send t)
(setq mime-edit-split-message nil)
(setq wl-thread-insert-opened t)
E