てなわけで、To: フィールドにこのメーリングリストのアドレスが含まれていたら、返信先のアドレスをFrom: フィールドの値にして、Cc:にメーリングリストのアドレスを含ませないようにする。~/.wlに以下の内容を追加する。
(setq wl-subscribed-mailing-list
'("wl@lists.airs.net"
"apel-ja@m17n.org"
"emacs-mime-ja@m17n.org"
"hoge@example.com"
))
(defun wl-mailing-list-addresses ()
(let (list-addrs)
(dolist (to (mapcar
(lambda (addr)
(nth 1 (std11-extract-address-components addr)))
(wl-parse-addresses
(wl-concat-list
(elmo-multiple-fields-body-list (list "To" "Cc"))
","))))
(when (elmo-string-matched-member to wl-subscribed-mailing-list t)
(setq list-addrs (cons to list-addrs))))
(nreverse list-addrs)))
(setq wl-draft-reply-with-argument-list
'((wl-mailing-list-addresses . (("From") nil nil))
("Reply-To" . (("Reply-To") nil nil))
("Mail-Reply-To" . (("Mail-Reply-To") nil nil))
("From" . (("From") nil nil))))
これだと問題は、議論するようなメーリングリストの場合にもToフィールドをFromフィールドのそれにしてしまうという点だ。議論するようなメーリングリストに返信する場合の作法を知らねば。
んなものテンプレート機能使えばいいんでないのという気がしてきた。