Wanderlustメモ

.wl

(setq wl-from "Hidetaka Yamashita ")
(setq wl-message-id-domain "example.com")
(setq wl-default-folder "%INBOX")
(setq wl-plugged nil)
(setq elmo-imap4-default-server "example.com")
(setq elmo-imap4-default-user "hoge")
(setq elmo-network-session-idle-timeout 300)
;(setq wl-mime-charset "iso-2022-jp")
(setq mime-header-accept-quoted-encoded-words t)

;; smtp
(setq smtp-fqdn "localhost")
(setq wl-smtp-posting-server "yamashita.dyndns.org")
;(setq wl-smtp-authenticate-type "cram-md5")
(setq wl-smtp-posting-user "hoge")
(setq smtp-use-sasl t)

(setq wl-fcc "%Sent")
;; 送信メールは自動で既読に
(setq wl-fcc-force-as-read t)
;;; メール送信するときに自分を含めない
(setq wl-draft-always-delete-myself t)
;;; 送信E-mailを分割させない
(setq mime-edit-split-message nil)

(setq wl-trash-folder "%Trash")
;(setq wl-draft-folder "%Draft")
(setq wl-default-spec "%")
(setq wl-use-scoring nil)
(setq wl-batch-prefetch-folder-list "%INBOX")

;; View settings
;(setq wl-summary-showto-folder-regexp ".*")
;(setq wl-summary-from-function 'wl-summary-default-from)
;(setq wl-summary-subject-function 'identity)
(setq wl-thread-insert-opened t)
(setq wl-folder-summary-line-format-alist
      '(("^%INBOX" . "%T%P%M/%D(%W)%h:%m %t%[%17(%c %f%) %] %s")))
(setq wl-message-ignored-field-list
      (append mime-view-ignored-field-list
      	      '("^Authentication-Results:" "^DKIM-Signature:" "^Status:"
	        "^DomainKey-Signature:" "Received.*:" "X-Spam-.*:"
		"^References:" "^X-VM-.*:" "^Replied:" "^Errors-To:"
		"^Lines:" "^Sender:" ".*Host:" "^Xref:"	"^Precedence:"
		"^MIME-Version:" "^Content-Transfer-Encoding:")))

;; Biff
(setq wl-biff-check-folder-list '("%INBOX"))
(setq wl-biff-notify-hook '(ding))
(setq wl-biff-check-interval 20)

;; bbdb
(require 'bbdb-wl)
(bbdb-wl-setup)
(setq bbdb-use-pop-up nil)
(setq bbdb/mail-auto-create-p t)
(setq bbdb-always-add-addresses t)
(setq bbdb-wl-ignore-folder-regexp
      "^@\\|^\\/\\|^\\[\\|^\\+\\(Trash\\|spam\\|ML\\)")
(setq wl-summary-from-function 'bbdb-wl-from-func)
(setq bbdb-offer-save "without-asking")

;; change thread view
(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                " ")

;; auto exipire
(add-hook 'wl-summary-prepared-pre-hook 'wl-summary-expire)
(setq wl-expire-alist
  '(
    ("^\\%spam$"	(date 30) trash)
))