-Note: To set the behavior when you reply to the message written by yourself, use
-@code{wl-draft-reply-myself-without-argument-list} and
-@code{wl-draft-reply-myself-with-argument-list}
-instead of them.
+By the way, you can use some function (will be evaluated in the parent
+message buffer) in the place of @samp{key} or @samp{to-list} etc.
+For example, if you only want to reply to mailing lists in
+@code{wl-subscribed-mailing-list} if the parent has some of them,
+set as follows:
+
+@lisp
+@group
+(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))))
+@end group
+@end lisp
+
+
+Note: To set the behavior when you reply to the message written by yourself,
+use @code{wl-draft-reply-myself-without-argument-list} and
+@code{wl-draft-reply-myself-with-argument-list} instead of them.