Email to forum not working from Mac

This commit is contained in:
JT Smith 2007-05-02 18:51:53 +00:00
parent c1f65c614d
commit 748e56a3b3
4 changed files with 9 additions and 0 deletions

View file

@ -1,5 +1,6 @@
7.3.16 7.3.16
- fix: Wiki titles not automatically linked - fix: Wiki titles not automatically linked
- fix: Email to forum not working from Mac
- fix: Calendar Events Disappearing - fix: Calendar Events Disappearing
http://www.plainblack.com/bugs/tracker/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 - fix: Modified SQLForm.pm to handle MySQL null dates. Undefs them. Undef dates default to time(), i.e. today's date

View file

@ -175,6 +175,11 @@ sub definition {
fieldType=>"hidden", fieldType=>"hidden",
defaultValue=>undef defaultValue=>undef
}, },
originalEmail => {
noFormPost=>1,
fieldType=>"hidden",
defaultValue=>undef
},
dateSubmitted => { dateSubmitted => {
noFormPost=>1, noFormPost=>1,
fieldType=>"hidden", fieldType=>"hidden",

View file

@ -117,6 +117,7 @@ Retrieves the next available message from the server. Returns undef if there are
subject => 'This is my message subject', subject => 'This is my message subject',
inReplyTo => 'some-message-id', inReplyTo => 'some-message-id',
messageId => 'some-message-id', messageId => 'some-message-id',
rawMessage => 'some mime encoded message',
date => 1144536119, date => 1144536119,
parts => [ parts => [
{ {
@ -195,6 +196,7 @@ sub getNextMessage {
my $inReplyTo = $head->get("In-Reply-To") || $head->get("References") || undef; my $inReplyTo = $head->get("In-Reply-To") || $head->get("References") || undef;
chomp($inReplyTo); chomp($inReplyTo);
my %data = ( my %data = (
rawMessage=> $rawMessage,
to => $to, to => $to,
from => $from, from => $from,
cc => $cc, cc => $cc,

View file

@ -115,6 +115,7 @@ sub addPost {
content=>$content, content=>$content,
ownerUserId=>$user->userId, ownerUserId=>$user->userId,
username=>$user->profileField("alias") || $user->username, username=>$user->profileField("alias") || $user->username,
originalEmail=>$message->{rawMessage}
}); });
if (scalar(@attachments)) { if (scalar(@attachments)) {
my $storage = $post->getStorageLocation; my $storage = $post->getStorageLocation;