diff options
| -rwxr-xr-x | regress/base/multipart_maker.pl | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/regress/base/multipart_maker.pl b/regress/base/multipart_maker.pl index 4af55a06..3df4208f 100755 --- a/regress/base/multipart_maker.pl +++ b/regress/base/multipart_maker.pl @@ -12,6 +12,7 @@ my $body; my $m_prev; my $msg; my $master; +my @m = (); for $msg (@ARGV) { my $m = new MailingList::Messages { @@ -21,12 +22,14 @@ for $msg (@ARGV) { filename => $msg, debug => 1, }; - - $m_prev->next_chain( $m ) if defined $m_prev; - $m_prev = $m; - $master = $m unless $master; + push(@m, $m); } +$master = $m[0]; +$master = $master->build_mime_multipart_chain( { + base_content_type => 'multipart/mixed', + message_list => \@m, +}); $master->raw_print; exit 0; |