diff options
| author | fukachan <fukachan> | 2003-03-16 10:49:11 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-03-16 10:49:11 +0000 |
| commit | 5c75ed6e995686a6b9e151edb4ae7718fe1d0019 (patch) | |
| tree | 2e6cae1cc376a54c4c065ea93979b18443dee4bc /fml/lib/FML/Command | |
| parent | 1029453c2b38a2aafc22d48afcc5c0aeb50a6d13 (diff) | |
| download | fml8-5c75ed6e995686a6b9e151edb4ae7718fe1d0019.tar.gz fml8-5c75ed6e995686a6b9e151edb4ae7718fe1d0019.tar.bz2 fml8-5c75ed6e995686a6b9e151edb4ae7718fe1d0019.zip | |
use $curproc->article_id_max() to get the last article id.
Diffstat (limited to 'fml/lib/FML/Command')
| -rw-r--r-- | fml/lib/FML/Command/SendFile.pm | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/fml/lib/FML/Command/SendFile.pm b/fml/lib/FML/Command/SendFile.pm index 2f8559d0..444572a0 100644 --- a/fml/lib/FML/Command/SendFile.pm +++ b/fml/lib/FML/Command/SendFile.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: SendFile.pm,v 1.23 2002/09/22 14:56:43 fukachan Exp $ +# $FML: SendFile.pm,v 1.24 2002/12/23 14:44:11 fukachan Exp $ # package FML::Command::SendFile; @@ -116,14 +116,9 @@ sub _get_valid_article_list return []; } - use File::Sequence; - my $config = $curproc->{ config }; - my $file = $config->{ sequence_file }; - my $sequence = new File::Sequence { sequence_file => $file }; - my $last_id = $sequence->get_id(); - use Mail::Message::MH; my $mh = new Mail::Message::MH; + my $last_id = $curproc->article_id_max(); # XXX expand() validates $fn. o.k. # XXX we assume min_id = 1, but not correct always. |