From 748e56a3b3e916a4d4a64fdf421a7bf1af062f53 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Wed, 2 May 2007 18:51:53 +0000
Subject: [PATCH] Email to forum not working from Mac

---
 docs/changelog/7.x.x.txt                  | 1 +
 lib/WebGUI/Asset/Post.pm                  | 5 +++++
 lib/WebGUI/Mail/Get.pm                    | 2 ++
 lib/WebGUI/Workflow/Activity/GetCsMail.pm | 1 +
 4 files changed, 9 insertions(+)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 37ec70469..0c0d18413 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -1,5 +1,6 @@
 7.3.16
  - fix: Wiki titles not automatically linked
+ - fix: Email to forum not working from Mac
  - fix: Calendar Events Disappearing
 	 http://www.plainblack.com/bugs/tracker/calendar-events-disappearing
  - fix: Modified SQLForm.pm to handle MySQL null dates.  Undefs them.  Undef dates default to time(), i.e. today's date
diff --git a/lib/WebGUI/Asset/Post.pm b/lib/WebGUI/Asset/Post.pm
index 91244f63c..ad3930f9b 100644
--- a/lib/WebGUI/Asset/Post.pm
+++ b/lib/WebGUI/Asset/Post.pm
@@ -175,6 +175,11 @@ sub definition {
 				fieldType=>"hidden",
 				defaultValue=>undef
 				},
+            originalEmail => {
+                noFormPost=>1,
+                fieldType=>"hidden",
+                defaultValue=>undef
+                },
 			dateSubmitted => {
 				noFormPost=>1,
 				fieldType=>"hidden",
diff --git a/lib/WebGUI/Mail/Get.pm b/lib/WebGUI/Mail/Get.pm
index ff5dc11c8..6e312299d 100644
--- a/lib/WebGUI/Mail/Get.pm
+++ b/lib/WebGUI/Mail/Get.pm
@@ -117,6 +117,7 @@ Retrieves the next available message from the server. Returns undef if there are
 	subject => 'This is my message subject',
 	inReplyTo => 'some-message-id',
 	messageId => 'some-message-id',
+    rawMessage => 'some mime encoded message',
 	date => 1144536119,
 	parts => [
 		{
@@ -195,6 +196,7 @@ sub getNextMessage {
 	my $inReplyTo = $head->get("In-Reply-To") || $head->get("References") || undef; 
 	chomp($inReplyTo);
 	my %data = (
+        rawMessage=> $rawMessage,
 		to => $to,
 		from => $from,
 		cc => $cc,
diff --git a/lib/WebGUI/Workflow/Activity/GetCsMail.pm b/lib/WebGUI/Workflow/Activity/GetCsMail.pm
index 8c2c679d6..76c63de37 100644
--- a/lib/WebGUI/Workflow/Activity/GetCsMail.pm
+++ b/lib/WebGUI/Workflow/Activity/GetCsMail.pm
@@ -115,6 +115,7 @@ sub addPost {
 		content=>$content,
 		ownerUserId=>$user->userId,
 		username=>$user->profileField("alias") || $user->username,
+        originalEmail=>$message->{rawMessage}
 		});
 	if (scalar(@attachments)) {
 		my $storage = $post->getStorageLocation;