more workflow bugfixes
This commit is contained in:
parent
19e4da7a92
commit
bf1a0ad11e
6 changed files with 18 additions and 5 deletions
|
|
@ -274,6 +274,7 @@ sub retrieve {
|
|||
return undef unless $data->{messageId};
|
||||
$session->db->deleteRow("mailQueue","messageId", $messageId);
|
||||
my $parser = MIME::Parser->new;
|
||||
$parser->output_to_core(1);
|
||||
bless {_session=>$session, _message=>$parser->parse_data($data->{messageId}), _toGroup=>$data->{toGroup}}, $class;
|
||||
}
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue