Mail::Message::Spool::spool arg changes: $spool_dir -> $base_dir

4 files changed, 16 insertions, 16 deletions

diff --git a/fml/lib/Mail/ThreadTrack/DB.pm b/fml/lib/Mail/ThreadTrack/DB.pm
index 46f5c9e2..40c62d44 100644
--- a/fml/lib/Mail/ThreadTrack/DB.pm
+++ b/fml/lib/Mail/ThreadTrack/DB.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: DB.pm,v 1.24 2002/02/17 03:13:50 fukachan Exp $
+# $FML: DB.pm,v 1.25 2002/03/31 01:59:00 fukachan Exp $
 #
 
 package Mail::ThreadTrack::DB;
@@ -194,8 +194,8 @@ sub db_mkdb
 
 	# analyze
 	my $file = $self->filepath({
-	    spool_dir => $spool_dir,
-	    id        => $id,
+	    baes_dir => $spool_dir,
+	    id       => $id,
 	});
 	my $fh   = new FileHandle $file;
 	next unless (defined $fh);	# for file missing
diff --git a/fml/lib/Mail/ThreadTrack/Print.pm b/fml/lib/Mail/ThreadTrack/Print.pm
index 0295b5d0..10c9d35a 100644
--- a/fml/lib/Mail/ThreadTrack/Print.pm
+++ b/fml/lib/Mail/ThreadTrack/Print.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Print.pm,v 1.21 2002/01/13 21:59:08 fukachan Exp $
+# $FML: Print.pm,v 1.22 2002/03/31 01:59:01 fukachan Exp $
 #
 
 package Mail::ThreadTrack::Print;
@@ -305,8 +305,8 @@ sub _do_review
 		    }
 
 		    my $file = $self->filepath({
-			spool_dir => $spool_dir,
-			id        => $aid,
+			base_dir => $spool_dir,
+			id       => $aid,
 		    });
 		    if (-f $file) {
 			$self->print(  $self->message_summary($file) );
diff --git a/fml/lib/Mail/ThreadTrack/Print/HTML.pm b/fml/lib/Mail/ThreadTrack/Print/HTML.pm
index 6ddd959a..10ad2c92 100644
--- a/fml/lib/Mail/ThreadTrack/Print/HTML.pm
+++ b/fml/lib/Mail/ThreadTrack/Print/HTML.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: HTML.pm,v 1.9 2002/01/13 14:51:25 fukachan Exp $
+# $FML: HTML.pm,v 1.10 2002/03/31 01:59:01 fukachan Exp $
 #
 
 package Mail::ThreadTrack::Print::HTML;
@@ -64,8 +64,8 @@ sub show_articles_in_thread
 	my $s = '';
 	for (split(/\s+/, $articles)) {
 	    my $file = $self->filepath({
-		spool_dir => $spool_dir,
-		id        => $_,
+		base_dir => $spool_dir,
+		id       => $_,
 	    });
 	    my $fh   = new FileHandle $file;
 	    while (defined($_ = $fh->getline())) {
@@ -218,8 +218,8 @@ sub __print_thread_summary
     if (defined $articles) {
 	$aid = (split(/\s+/, $articles))[0];
 	my $f = $self->filepath({
-	    spool_dir => $spool_dir,
-	    id        => $aid,
+	    base_dir => $spool_dir,
+	    id       => $aid,
 	});
 	if (-f $f) {
 	    my $buf = $self->message_summary($f);
diff --git a/fml/lib/Mail/ThreadTrack/Print/Text.pm b/fml/lib/Mail/ThreadTrack/Print/Text.pm
index aeda5f9b..daf061d5 100644
--- a/fml/lib/Mail/ThreadTrack/Print/Text.pm
+++ b/fml/lib/Mail/ThreadTrack/Print/Text.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Text.pm,v 1.7 2002/01/13 15:19:53 fukachan Exp $
+# $FML: Text.pm,v 1.8 2002/03/31 01:59:01 fukachan Exp $
 #
 
 package Mail::ThreadTrack::Print::Text;
@@ -55,8 +55,8 @@ sub show_articles_in_thread
 	my $s = '';
 	for my $id (split(/\s+/, $articles)) {
 	    my $file = $self->filepath({
-		spool_dir => $spool_dir,
-		id        => $id,
+		base_dir => $spool_dir,
+		id       => $id,
 	    });
 	    my $fh   = new FileHandle $file;
 	    while (defined($_ = $fh->getline())) {
@@ -170,8 +170,8 @@ sub __print_message_summary
 		(@aid) = split(/\s+/, $rh->{ _articles }->{ $thread_id });
 		$aid  = $aid[0];
 		$file = $self->filepath({
-		    spool_dir => $spool_dir,
-		    id        => $aid,
+		    base_dir => $spool_dir,
+		    id       => $aid,
 		});
 		if (-f $file) {
 		    $self->print(  $self->message_summary($file) );