check print a chain

1 files changed, 20 insertions, 16 deletions

diff --git a/regress/base/multipart_maker.pl b/regress/base/multipart_maker.pl
index 7c672233..4af55a06 100755
--- a/regress/base/multipart_maker.pl
+++ b/regress/base/multipart_maker.pl
@@ -1,28 +1,32 @@
 use strict;
 use File::Basename;
+use MailingList::Messages;
 
 my $dir = dirname($0);
 
 $| = 1;
 
-my $msg = shift || "/etc/fml/main.cf";
-
-use FileHandle;
-my $fh = new FileHandle $msg;
-
 my $header;
 my $boundary;
 my $body;
-
-use MailingList::Messages;
-my $m = new MailingList::Messages { 
-    content_type   => 'text/plain',
-    charset        => 'iso-2022-jp',
-    boundary       => $boundary,
-    filename       => $msg,
-    debug          => 1,
-};
-
-$m->raw_print;
+my $m_prev;
+my $msg;
+my $master;
+
+for $msg (@ARGV) {
+    my $m = new MailingList::Messages { 
+	content_type   => 'text/plain',
+	charset        => 'iso-2022-jp',
+	boundary       => $boundary,
+	filename       => $msg,
+	debug          => 1,
+    };
+
+    $m_prev->next_chain( $m ) if defined $m_prev;
+    $m_prev = $m;
+    $master = $m unless $master; 
+}
+
+$master->raw_print;
 
 exit 0;