add a reply-to header so as to be less confusing and actually work right, now that...

diff --git a/lib/Promulger/Dispatch.pm b/lib/Promulger/Dispatch.pm
index 78340e1..408290d 100644 (file)
--- a/lib/Promulger/Dispatch.pm
+++ b/lib/Promulger/Dispatch.pm
@@ -75,9 +75,10 @@ sub post_message {
     # 2010-03-13 
     my $new_message = Email::Simple->create(
       header => [
-        From => $sender_address,
-        To   => $subscriber,
-        Subject => $email->header('Subject'),
+        From       => $sender_address,
+        To         => $subscriber,
+        Subject    => $email->header('Subject'),
+        'Reply-to' => $recipient,
       ],
       body => $body,
     );