X-Git-Url: https://git.sthu.org/?a=blobdiff_plain;f=caff%2Fcaff;h=8e57fd22df45882f868bd7acaecf57de05115b48;hb=ce59495f895a0950be1ba8cc2fb7345b681a08ee;hp=75ffcfd7e700cf098f5306e3cda34f1af2b0ae2e;hpb=56b77d4857a6a177f9d456abb2d2e5296cd86fb7;p=pgp-tools.git

diff --git a/caff/caff b/caff/caff
index 75ffcfd..8e57fd2 100755
--- a/caff/caff
+++ b/caff/caff
@@ -235,6 +235,10 @@ The UIDs for which signatures are included in the mail.
 
 =back
 
+=item B<reply-to> [string]
+
+Add a Reply-To: header to messages sent. Default: none.
+
 =item B<bcc> [string]
 
 Address to send blind carbon copies to when sending mail.
@@ -718,6 +722,7 @@ sub send_mail($$$@) {
 	$message_entity->head->add("Subject", "Your signed PGP key 0x$key_id");
 	$message_entity->head->add("To", $address);
 	$message_entity->head->add("From", '"'.$CONFIG{'owner'}.'" <'.$CONFIG{'email'}.'>');
+	$message_entity->head->add("Reply-To", $CONFIG{'reply-to'}) if defined $CONFIG{'reply-to'};
 	$message_entity->head->add("Bcc", $CONFIG{'bcc'}) if defined $CONFIG{'bcc'};
 	$message_entity->head->add("User-Agent", $USER_AGENT);
 	$message_entity->send();