diff options
| author | fukachan <fukachan> | 2002-03-31 01:59:00 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-03-31 01:59:00 +0000 |
| commit | 7b80663d6d3539c6200608e33b93f334ec4ad47a (patch) | |
| tree | 2fb84e95777d807f984bb2a15421fb33c8c295b0 /fml/lib/Mail/ThreadTrack/Print/HTML.pm | |
| parent | af772a4166804d7ff246f3484dabd73636e871b7 (diff) | |
| download | fml8-7b80663d6d3539c6200608e33b93f334ec4ad47a.tar.gz fml8-7b80663d6d3539c6200608e33b93f334ec4ad47a.tar.bz2 fml8-7b80663d6d3539c6200608e33b93f334ec4ad47a.zip | |
use $self->filepath() which is based on Mail::Message::Spool
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) ); |