added mail properties

This commit is contained in:
JT Smith 2006-04-10 00:12:28 +00:00
parent 504de54d61
commit 47a79bf060
5 changed files with 152 additions and 3 deletions

View file

@ -163,7 +163,7 @@ sub execute {
}
my $post = undef;
if ($message->{inReplyTo}) {
$message->{inReplyTo} =~ m/WebGUI\-([\w_-]{22})/;
$message->{inReplyTo} =~ m/cs\-([\w_-]{22})/;
my $id = $1;
$post = WebGUI::Asset->newByDynamicClass($self->session, $id);
}