diff options
| author | fukachan <fukachan> | 2001-02-03 12:25:10 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-02-03 12:25:10 +0000 |
| commit | 894ad2a5d6f1a738e31c1bea84bf8f11ef2fb616 (patch) | |
| tree | 6316d936eba2ade07d79f281825d6540aa2c32a7 /fml | |
| parent | 62d7bea68c1baea64cb1d663146a2ad0c325d257 (diff) | |
| download | fml8-894ad2a5d6f1a738e31c1bea84bf8f11ef2fb616.tar.gz fml8-894ad2a5d6f1a738e31c1bea84bf8f11ef2fb616.tar.bz2 fml8-894ad2a5d6f1a738e31c1bea84bf8f11ef2fb616.zip | |
call MailingList::Message->new() with boundary and content_type
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/FML/Parse.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/fml/lib/FML/Parse.pm b/fml/lib/FML/Parse.pm index 44c56720..3af65b74 100644 --- a/fml/lib/FML/Parse.pm +++ b/fml/lib/FML/Parse.pm @@ -122,7 +122,11 @@ sub _parse # extract each field from the header array my $r_header = new FML::Header \@h, Modify => 0; - my $r_body = new MailingList::Messages { content => \$InComingMessage }; + my $r_body = new MailingList::Messages { + boundary => $r_header->mime_boundary(), + content_type => $r_header->content_type(), + content => \$InComingMessage, + }; # return ( $ref_to_mail_header, $ref_to_mail_body, $error_code); return ($r_header, $r_body, 0); |