| [ < ] | [ > ] | [ << ] | [ Up ] | [ >> ] | [Top] | [Contents] | [Index] | [ ? ] |
サマリモードで a を押すと返事用のドラフトが用意されます。 用意される草稿の宛先は、以下のようにして設定することができます。
例えば、
(setq wl-draft-reply-without-argument-list
'(("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups")))
("Followup-To" . (nil nil ("Followup-To")))
(("X-ML-Name" "Reply-To") . (("Reply-To") nil nil))
("From" . (("From") ("To" "Cc") ("Newsgroups")))))
|
のように設定します。ここでリスト wl-draft-reply-without-argument-list
の各要素は
(key . (to-list cc-list newsgroup-list)) |
となっており、`key' で指定したフィールドが存在するときに、親メッセージ の `to-list' で指定されるヘッダを、草稿の `To:' にコピーします。 また同様に、親の `cc-list', `newsgroup-list' は草稿の `Cc:', `Newsgroups:' にコピーされます。
例を挙げて説明します。
("Mail-Followup-To" . (("Mail-Followup-To") nil ("Newsgroups")))
|
親メッセージに `Mail-Followup-To' フィールドが存在したときにマッチします。 親メッセージの `Mail-Followup-To' および `Newsgroups' フィールドの内容を、草稿の `To' および `Newsgroups' にコピーします。
(("X-ML-Name" "Reply-To") . (("Reply-To") nil nil))
|
親メッセージに `X-ML-Name' および `Reply-To' の両方が存在した ときにマッチします。 親メッセージの `Reply-To' を草稿の `To' にコピーします。
("From" . (("From") ("To" "Cc") ("Newsgroups")))
|
親メッセージの `From' を草稿の `To' に、親の `To' および `Cc' を草稿の `Cc' に、`Newsgroups' を `Newsgroups' にそれぞれコピーします。
これらは順番に評価され、最初にマッチしたものが使われます。
同様にして、prefix argument 付きで a を押したときの動作が、
wl-draft-reply-with-argument-list で設定できます。
また、関数(親メッセージのバッファで評価される)を `key' や `to-list' 等の変わりに用いることもできます。
自分の書いたメッセージへの返信の場合にマッチさせたい場合には
`key' として関数 wl-draft-self-reply-p を指定します。
C-u a したときに、wl-subscribed-mailing-list の
アドレスが含まれるメールに対してはメーリングリストにのみ返信したい場合、
次のような設定ができます。
(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 . (wl-mailing-list-addresses nil nil))
("Reply-To" . (("Reply-To") nil nil))
("Mail-Reply-To" . (("Mail-Reply-To") nil nil))
("From" . (("From") nil nil))))
|