FNF: article_max_id -> article_get_max_id

8 files changed, 18 insertions, 18 deletions

diff --git a/fml/lib/FML/Article/Summary.pm b/fml/lib/FML/Article/Summary.pm
index 20f72338..bdd640e6 100644
--- a/fml/lib/FML/Article/Summary.pm
+++ b/fml/lib/FML/Article/Summary.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: Summary.pm,v 1.22 2004/07/11 15:43:37 fukachan Exp $
+# $FML: Summary.pm,v 1.23 2005/05/26 09:42:24 fukachan Exp $
 #
 
 package FML::Article::Summary;
@@ -247,7 +247,7 @@ sub rebuild
 
 	# speculate boundary if not specified.
 	$min ||= 1;
-	$max ||= $curproc->article_max_id();
+	$max ||= $curproc->article_get_max_id();
 
 	for my $id ($min .. $max) {
 	    $self->print($wh, $id);
diff --git a/fml/lib/FML/Article/Thread.pm b/fml/lib/FML/Article/Thread.pm
index bb8c1791..4ecbdb44 100644
--- a/fml/lib/FML/Article/Thread.pm
+++ b/fml/lib/FML/Article/Thread.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2003,2004 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Thread.pm,v 1.11 2004/07/23 15:59:01 fukachan Exp $
+# $FML: Thread.pm,v 1.12 2004/10/31 08:33:59 fukachan Exp $
 #
 
 package FML::Article::Thread;
@@ -96,7 +96,7 @@ sub new
 	$tdb_args = $thread_db_args;
     }
     else {
-	my $max_id = $curproc->article_max_id();
+	my $max_id = $curproc->article_get_max_id();
 	$tdb_args  = $curproc->thread_db_args();
 	$tdb_args->{ id } = $max_id;
     }
diff --git a/fml/lib/FML/CGI/Thread.pm b/fml/lib/FML/CGI/Thread.pm
index 7ce8ea93..cac7c5ef 100644
--- a/fml/lib/FML/CGI/Thread.pm
+++ b/fml/lib/FML/CGI/Thread.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: Thread.pm,v 1.3 2004/03/31 12:38:08 fukachan Exp $
+# $FML: Thread.pm,v 1.4 2004/07/23 15:59:02 fukachan Exp $
 #
 
 package FML::CGI::Thread;
@@ -92,7 +92,7 @@ sub html_end
 sub run_cgi_main
 {
     my ($curproc) = @_;
-    my $max_id    = $curproc->article_max_id();
+    my $max_id    = $curproc->article_get_max_id();
     my $cur_id    = $curproc->safe_param_article_id() || 0;
     my $range     = $cur_id;
     my $th_args   = {
@@ -125,7 +125,7 @@ sub run_cgi_menu
     my ($curproc)     = @_;
     my $myname        = $curproc->myname();
     my $ml_name       = $curproc->cgi_var_ml_name() || '';
-    my $max_id        = $curproc->article_max_id();
+    my $max_id        = $curproc->article_get_max_id();
     my $cur_id        = $curproc->safe_param_article_id();
     my $range         = $cur_id;
     my $default_range = 'last:10';
diff --git a/fml/lib/FML/Command/Admin/summary.pm b/fml/lib/FML/Command/Admin/summary.pm
index 61582f16..a9d46c00 100644
--- a/fml/lib/FML/Command/Admin/summary.pm
+++ b/fml/lib/FML/Command/Admin/summary.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: summary.pm,v 1.7 2004/01/01 08:48:40 fukachan Exp $
+# $FML: summary.pm,v 1.8 2004/06/26 11:47:57 fukachan Exp $
 #
 
 package FML::Command::Admin::summary;
@@ -81,7 +81,7 @@ sub _summary
 {
     my ($self, $curproc, $command_args) = @_;
     my $config  = $curproc->config();
-    my $max_id  = $curproc->article_max_id();
+    my $max_id  = $curproc->article_get_max_id();
     my $options = $command_args->{ options } || [];
 
     use FML::Article::Summary;
diff --git a/fml/lib/FML/Command/Admin/thread.pm b/fml/lib/FML/Command/Admin/thread.pm
index fddfd885..1e395efb 100644
--- a/fml/lib/FML/Command/Admin/thread.pm
+++ b/fml/lib/FML/Command/Admin/thread.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: thread.pm,v 1.7 2004/03/31 12:53:51 fukachan Exp $
+# $FML: thread.pm,v 1.8 2004/04/23 04:10:29 fukachan Exp $
 #
 
 package FML::Command::Admin::thread;
@@ -89,7 +89,7 @@ sub _new_switch
     my $command       = $options->[ 0 ] || 'one_line_summary';
     my $range         = $options->[ 1 ] || '';
     my $default_range = 'last:10';
-    my $max_id        = $curproc->article_max_id();
+    my $max_id        = $curproc->article_get_max_id();
     my $th_args       = {
 	last_id => $max_id,
     };
diff --git a/fml/lib/FML/Command/SendFile.pm b/fml/lib/FML/Command/SendFile.pm
index 14750661..fd7e1706 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.43 2005/06/04 08:49:07 fukachan Exp $
+# $FML: SendFile.pm,v 1.44 2005/06/04 08:51:29 fukachan Exp $
 #
 
 package FML::Command::SendFile;
@@ -152,7 +152,7 @@ sub _get_valid_article_list
 
     use Mail::Message::MH;
     my $mh      = new Mail::Message::MH;
-    my $last_id = $curproc->article_max_id();
+    my $last_id = $curproc->article_get_max_id();
 
     # XXX expand() validates $fn. o.k.
     # XXX we assume min_id = 1, but not correct always.
diff --git a/fml/lib/FML/Digest.pm b/fml/lib/FML/Digest.pm
index 13e911c1..db4384ac 100644
--- a/fml/lib/FML/Digest.pm
+++ b/fml/lib/FML/Digest.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: Digest.pm,v 1.20 2004/07/23 13:16:31 fukachan Exp $
+# $FML: Digest.pm,v 1.21 2004/12/05 16:19:04 fukachan Exp $
 #
 
 package FML::Digest;
@@ -111,7 +111,7 @@ sub get_article_id
     my ($self)  = @_;
     my $curproc = $self->{ _curproc };
 
-    return $curproc->article_max_id();
+    return $curproc->article_get_max_id();
 }
 
 
diff --git a/fml/lib/FML/Process/Utils.pm b/fml/lib/FML/Process/Utils.pm
index c09f8b48..075178fb 100644
--- a/fml/lib/FML/Process/Utils.pm
+++ b/fml/lib/FML/Process/Utils.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: Utils.pm,v 1.133 2005/08/10 15:03:27 fukachan Exp $
+# $FML: Utils.pm,v 1.134 2005/08/11 04:07:33 fukachan Exp $
 #
 
 package FML::Process::Utils;
@@ -1636,7 +1636,7 @@ sub convert_to_mail_address
 }
 
 
-=head2 article_max_id()
+=head2 article_get_max_id()
 
 return the current article number (sequence number).
 
@@ -1647,7 +1647,7 @@ return the current article number (sequence number).
 #    Arguments: OBJ($curproc)
 # Side Effects: none
 # Return Value: NUM
-sub article_max_id
+sub article_get_max_id
 {
     my ($curproc) = @_;