make messages posted from the list appear to be from the person who sent them

[p5sagit/Promulger.git] / lib / Promulger / Dispatch.pm

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