diff options
Diffstat (limited to 'fml/lib/Mail/ThreadTrack/Print/HTML.pm')
| -rw-r--r-- | fml/lib/Mail/ThreadTrack/Print/HTML.pm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/fml/lib/Mail/ThreadTrack/Print/HTML.pm b/fml/lib/Mail/ThreadTrack/Print/HTML.pm index bf919434..6ddd959a 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.8 2001/12/22 09:21:21 fukachan Exp $ +# $FML: HTML.pm,v 1.9 2002/01/13 14:51:25 fukachan Exp $ # package Mail::ThreadTrack::Print::HTML; @@ -63,7 +63,10 @@ sub show_articles_in_thread my $s = ''; for (split(/\s+/, $articles)) { - my $file = File::Spec->catfile($spool_dir, $_); + my $file = $self->filepath({ + spool_dir => $spool_dir, + id => $_, + }); my $fh = new FileHandle $file; while (defined($_ = $fh->getline())) { next if 1 .. /^$/; @@ -214,7 +217,10 @@ sub __print_thread_summary print "<TD>"; if (defined $articles) { $aid = (split(/\s+/, $articles))[0]; - my $f = File::Spec->catfile($spool_dir, $aid); + my $f = $self->filepath({ + spool_dir => $spool_dir, + id => $aid, + }); if (-f $f) { my $buf = $self->message_summary($f); $self->print( STR2EUC($buf) ); |