Wanderlust のテンプレート周りを設定した。新規メールは C-c C-j でテンプレートを選択。リプライの場合は Delivered-To ヘッダーを見てテンプレートを自動選択。便利すぎる。
(setq wl-template-alist
'(("essi"
("From" . "Norihiro Hattori <tnh@essi.co.jp>")
("Organization" . "E Solution Service Inc.")
(top . "ESS 服部典弘です。\n\n")
(bottom . "\n--\n")
(bottom-file . "~/.signature")
)
("wloj"
("From" . "Tenkou N. Hattori <tnh@webmasters.gr.jp>")
("Organization" . "Webmasters of www.linux.or.jp")
(top . "服部典弘です。\n\n")
(bottom . "\n--\n")
(bottom-file . "~/.signature.wloj")
)
))
(setq wl-template-visible-select nil)
(setq wl-draft-config-alist
'((reply
"^Delivered-To: .*tnh@essi\.co\.jp"
(template . "essi"))
(reply
"^Delivered-To: .*tnh@webmasters\.gr\.jp"
(template . "wloj"))
))
(setq wl-interactive-send t)
(add-hook 'wl-mail-setup-hook
'(lambda ()
(unless wl-draft-reedit ; 再編集時は適用しない
(wl-draft-config-exec wl-draft-config-alist))))
