From 750781687828248244f430788352c20c8b93ee77 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Thu, 9 Aug 2007 15:02:09 +0000
Subject: [PATCH] set reply to = from for data form emails

---
 docs/changelog/7.x.x.txt             |  4 ++++
 lib/WebGUI/Asset/Wobject/DataForm.pm | 21 ++++++++++++++-------
 2 files changed, 18 insertions(+), 7 deletions(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index f75c6762f..c7daf6301 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -1,3 +1,7 @@
+7.4.3
+ - Data Forms set reply to to the same as the from field
+
+
 7.4.2
  - Group names can now be 100 characters long
  - prevent groups being created with duplicate names
diff --git a/lib/WebGUI/Asset/Wobject/DataForm.pm b/lib/WebGUI/Asset/Wobject/DataForm.pm
index 395a61f88..f11c38c72 100644
--- a/lib/WebGUI/Asset/Wobject/DataForm.pm
+++ b/lib/WebGUI/Asset/Wobject/DataForm.pm
@@ -738,7 +738,14 @@ sub sendEmail {
 	    @{$self->getAttachedFiles({returnType=>'attachments',entryId=>$var->{entryId}})}
 		: ();
 	if ($to =~ /\@/) {
-		my $mail = WebGUI::Mail::Send->create($self->session,{to=>$to, subject=>$subject, cc=>$cc, from=>$from, bcc=>$bcc});
+		my $mail = WebGUI::Mail::Send->create($self->session,{
+		    to      => $to,
+		    replyTo => $from,
+		    subject => $subject,
+		    cc      => $cc,
+		    from    => $from,
+		    bcc     => $bcc,
+		});
 		$mail->addHtml($message);
 		$mail->addFooter;
 		$mail->addAttachment($_) for (@attachments);
@@ -760,22 +767,22 @@ sub sendEmail {
 				message=>$message,
 				status=>'complete'
 				});
-                        my $mail =  WebGUI::Mail::Send->create($self->session,{to=>$cc, subject=>$subject, from=>$from});
 			if ($cc) {
+                my $mail =  WebGUI::Mail::Send->create($self->session,{to=>$cc, replyTo=>$from, subject=>$subject, from=>$from});
 				$mail->addHtml($message);
 				$mail->addAttachment($_) for (@attachments);
 				$mail->addFooter;
 				$mail->queue;
-                        }
-                        if ($bcc) {
-                                WebGUI::Mail::Send->create($self->session, {to=>$bcc, subject=>$subject, from=>$from});
+            }
+            if ($bcc) {
+                my $mail = WebGUI::Mail::Send->create($self->session, {to=>$bcc, replyTo=>$from, subject=>$subject, from=>$from});
 				$mail->addHtml($message);
 				$mail->addAttachment($_) for (@attachments);
 				$mail->addFooter;
 				$mail->queue;
-                        }
-                }
+            }
         }
+    }
 }
 
 #-------------------------------------------------------------------