fix comments (FNF)

32 files changed, 179 insertions, 144 deletions

diff --git a/fml/lib/FML/CGI/List.pm b/fml/lib/FML/CGI/List.pm
index 43bdab74..111ed91e 100644
--- a/fml/lib/FML/CGI/List.pm
+++ b/fml/lib/FML/CGI/List.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2002,2003,2004 Ken'ichi Fukamachi
+#  Copyright (C) 2002,2003,2004,2005 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: List.pm,v 1.12 2004/04/18 05:59:42 fukachan Exp $
+# $FML: List.pm,v 1.13 2004/07/23 13:16:33 fukachan Exp $
 #
 
 package FML::CGI::List;
@@ -51,6 +51,7 @@ sub cgi_menu
     # check $map_default included in $map_list.
     unless ($config->has_attribute("cgi_menu_address_map_select_list",
 				   $map_default)) {
+	# XXX-TODO: nl ?
 	croak("invalid map: $map_default");
     }
 
@@ -98,7 +99,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2002,2003,2004 Ken'ichi Fukamachi
+Copyright (C) 2002,2003,2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/FML/Cache/Ring.pm b/fml/lib/FML/Cache/Ring.pm
index fdcba8a9..1198928b 100644
--- a/fml/lib/FML/Cache/Ring.pm
+++ b/fml/lib/FML/Cache/Ring.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2004 Ken'ichi Fukamachi
+#  Copyright (C) 2004,2005 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Ring.pm,v 1.3 2004/06/26 11:32:18 fukachan Exp $
+# $FML: Ring.pm,v 1.4 2004/07/23 15:59:02 fukachan Exp $
 #
 
 package FML::Cache::Ring;
@@ -45,11 +45,10 @@ You can specify C<file_name> parameter.
 
 If so, the file names become _smtplog.0, _smtplog.1, ...
 
-The cache data is limited by size.
-
-You can use FML::Cache::Ring based on time not size.
-It is time based expiretion.
-If you so, use new() like this:
+The cache data is limited by the number of files, so approximately
+size by default. Instead of number fo files, you can limit
+FML::Cache::Ring based on time. It is time based expiretion. If you
+so, use new() like this:
 
    $obj = new FML::Cache::Ring {
        directory  => '/some/where',
@@ -114,8 +113,7 @@ END   {}
 #               forward new() request to superclass (IO::File)
 #    Arguments: OBJ($self) HASH_REF($args)
 # Side Effects: none
-# Return Value: OBJ
-#               XXX $self is blessed file handle.
+# Return Value: OBJ (blessed as a file handle).
 sub new
 {
     my ($self, $args) = @_;
@@ -483,7 +481,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2004 Ken'ichi Fukamachi
+Copyright (C) 2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/FML/Command/Admin/changepassword.pm b/fml/lib/FML/Command/Admin/changepassword.pm
index ea6f718c..05081a99 100644
--- a/fml/lib/FML/Command/Admin/changepassword.pm
+++ b/fml/lib/FML/Command/Admin/changepassword.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2003,2004 Ken'ichi Fukamachi
+#  Copyright (C) 2003,2004,2005 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: changepassword.pm,v 1.14 2004/04/30 13:38:35 fukachan Exp $
+# $FML: changepassword.pm,v 1.15 2004/07/23 13:03:50 fukachan Exp $
 #
 
 package FML::Command::Admin::changepassword;
@@ -23,7 +23,7 @@ See C<FML::Command> for more details.
 
 =head1 DESCRIPTION
 
-set password of a new address or change password.
+set password for a new address or change password.
 
 =head1 METHODS
 
@@ -232,7 +232,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2003,2004 Ken'ichi Fukamachi
+Copyright (C) 2003,2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/FML/Command/DataCheck.pm b/fml/lib/FML/Command/DataCheck.pm
index 366977ad..4d8f7749 100644
--- a/fml/lib/FML/Command/DataCheck.pm
+++ b/fml/lib/FML/Command/DataCheck.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2002,2003,2004 Ken'ichi Fukamachi
+#  Copyright (C) 2002,2003,2004,2005 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: DataCheck.pm,v 1.15 2004/04/23 04:10:30 fukachan Exp $
+# $FML: DataCheck.pm,v 1.16 2004/06/26 11:47:55 fukachan Exp $
 #
 
 package FML::Command::DataCheck;
@@ -89,7 +89,7 @@ sub parse_command_arguments
 
 
 #
-# XXX-TODO: find_special_keyword() NOT USED ?
+# XXX-TODO: find_special_keyword() NOT USED ? YES. REMOVE IT.
 #
 
 
@@ -132,7 +132,7 @@ sub find_special_keyword
 
 
 #
-# XXX-TODO: find_anonymous_command_mail_allowed_commands() NOT USED?
+# XXX-TODO: find_anonymous_command_mail_allowed_commands() NOT USED? YES. RM!
 #
 
 
@@ -202,7 +202,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2002,2003,2004 Ken'ichi Fukamachi
+Copyright (C) 2002,2003,2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/FML/Command/User/get.pm b/fml/lib/FML/Command/User/get.pm
index b9a5e308..975669ba 100644
--- a/fml/lib/FML/Command/User/get.pm
+++ b/fml/lib/FML/Command/User/get.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: get.pm,v 1.22 2004/04/23 04:15:58 fukachan Exp $
+# $FML: get.pm,v 1.23 2004/06/26 11:47:58 fukachan Exp $
 #
 
 package FML::Command::User::get;
@@ -80,6 +80,7 @@ sub check_limit
     my $total_num_req = $total + $nreq;
     $pcb->set('command', 'get_command_total_num_request', $total_num_req);
 
+    # XXX-TODO: same limit value ?
     if ($total_num_req > $limit) {
 	$curproc->reply_message_nl('command.exceed_total_request_limit',
 				   'total requests exceed limit',
@@ -130,7 +131,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/FML/Confirm.pm b/fml/lib/FML/Confirm.pm
index 9a1f7e0a..e545ef73 100644
--- a/fml/lib/FML/Confirm.pm
+++ b/fml/lib/FML/Confirm.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Confirm.pm,v 1.16 2004/01/18 14:03:55 fukachan Exp $
+# $FML: Confirm.pm,v 1.17 2004/07/23 04:02:46 fukachan Exp $
 #
 
 package FML::Confirm;
@@ -52,7 +52,8 @@ constructor. The argument follows:
 	cache_dir => "/some/where",
     };
 
-This class uses FML::Cache::Journal as database internally.
+This class uses journaled database FML::Cache::Journal as database
+internally.
 
 =cut
 
@@ -106,7 +107,8 @@ sub assign_id
     my $cksum  = new Mail::Message::Checksum;
     my $md5sum = $cksum->md5( \$string );
 
-    # XXX-TODO: o.k.? $id is returned but not saved within object ?
+    # $id is returned but not primary key.
+    # $md5sum is the primary key in the database.
     # 1. build id
     my $id = "$keyword $class $md5sum";
 
@@ -313,7 +315,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2004 Ken'ichi Fukamachi
+Copyright (C) 2001,2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/FML/Credential.pm b/fml/lib/FML/Credential.pm
index 861e2777..4ad397c0 100644
--- a/fml/lib/FML/Credential.pm
+++ b/fml/lib/FML/Credential.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Credential.pm,v 1.61 2004/07/23 13:16:31 fukachan Exp $
+# $FML: Credential.pm,v 1.62 2004/07/23 15:59:00 fukachan Exp $
 #
 
 package FML::Credential;
@@ -35,7 +35,7 @@ FML::Credential - functions to authenticate the mail sender.
 =head1 DESCRIPTION
 
 a collection of utilitity functions to authenticate the sender of the
-message which kicks off this proces.
+message which kicks off this process.
 
 =head2 User credential information
 
@@ -708,7 +708,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/FML/File/Rotate.pm b/fml/lib/FML/File/Rotate.pm
index 883dda95..7b6ba610 100644
--- a/fml/lib/FML/File/Rotate.pm
+++ b/fml/lib/FML/File/Rotate.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2004 Ken'ichi Fukamachi
+#  Copyright (C) 2004,2005 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Rotate.pm,v 1.4 2004/07/23 12:39:17 fukachan Exp $
+# $FML: Rotate.pm,v 1.5 2004/07/23 15:59:05 fukachan Exp $
 #
 
 package FML::File::Rotate;
@@ -41,9 +41,9 @@ C<rotation> renames and rearranges files like this:
     mv file.0 file.1
     mv file   file.0
 
-In old age, shell script does this but
+In old age, a shell script does this but
 in modern unix,
-some programs such as /usr/bin/newsyslog (MIT athena project) do.
+some programs such as /usr/bin/newsyslog (MIT athena project) do it.
 
 =head1 METHODS
 
@@ -71,19 +71,19 @@ sub new
 
 =head2 set_max_size($size)
 
-set max_size.
+set the maximum size.
 
 =head2 get_max_size()
 
-get max_size.
+get the maximum size.
 
 =head2 set_num_backlog($num)
 
-set number of backlog files.
+set the number of backlog files.
 
 =head2 get_num_backlog()
 
-get number of backlog files.
+get the number of backlog files.
 
 =cut
 
@@ -151,7 +151,7 @@ sub get_num_backlog
 =head2 is_time_to_rotate()
 
 C<stat()> the file correspoinding to the object and
-determine whether the time to do comes or not.
+determine whether the time to rotate comes or not.
 
 =cut
 
@@ -175,7 +175,7 @@ sub is_time_to_rotate
 
 =head2 rotate($file)
 
-rename files to rotate it.
+rename files to rotate.
 
     rm file.4
     mv file.3 file.4
@@ -187,7 +187,7 @@ rename files to rotate it.
 =cut
 
 
-# Descriptions: rotate file.
+# Descriptions: rotate files.
 #    Arguments: OBJ($self) STR($file)
 # Side Effects: rename in proper way and unlink the oldest file if needed.
 # Return Value: none
@@ -224,7 +224,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2004 Ken'ichi Fukamachi
+Copyright (C) 2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/FML/Header.pm b/fml/lib/FML/Header.pm
index 14c74874..dd6656be 100644
--- a/fml/lib/FML/Header.pm
+++ b/fml/lib/FML/Header.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: Header.pm,v 1.81 2005/01/01 07:16:12 fukachan Exp $
+# $FML: Header.pm,v 1.82 2005/01/23 00:54:36 fukachan Exp $
 #
 
 package FML::Header;
@@ -172,7 +172,7 @@ For example, C<text/plain>, C<mime/multipart> and et. al.
 # Return Value: STR or UNDEF
 sub data_type
 {
-    my ($header) = @_;
+    my ($header)     = @_;
     my $content_type = $header->get('content-type');
 
     if (defined $content_type) {
diff --git a/fml/lib/FML/ML/HomePrefix.pm b/fml/lib/FML/ML/HomePrefix.pm
index 1f603e6a..b3f25e21 100644
--- a/fml/lib/FML/ML/HomePrefix.pm
+++ b/fml/lib/FML/ML/HomePrefix.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2003,2004 Ken'ichi Fukamachi
+#  Copyright (C) 2003,2004,2005 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: HomePrefix.pm,v 1.6 2004/07/23 13:16:39 fukachan Exp $
+# $FML: HomePrefix.pm,v 1.7 2004/10/03 12:07:52 fukachan Exp $
 #
 
 package FML::ML::HomePrefix;
@@ -147,6 +147,7 @@ sub add
 	$curproc->logwarn("$dir already exist. reuse it.");
     }
     else {
+	# XXX proper mode ?
 	$curproc->mkdir($dir);
 	if (-d $dir) {
 	    $curproc->log("$dir created");
@@ -247,7 +248,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2003,2004 Ken'ichi Fukamachi
+Copyright (C) 2003,2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/FML/Merge.pm b/fml/lib/FML/Merge.pm
index 737b04f5..a6144ae9 100644
--- a/fml/lib/FML/Merge.pm
+++ b/fml/lib/FML/Merge.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2004 Ken'ichi Fukamachi
+#  Copyright (C) 2004,2005 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Merge.pm,v 1.16 2004/12/29 08:21:50 fukachan Exp $
+# $FML: Merge.pm,v 1.17 2004/12/30 04:35:48 fukachan Exp $
 #
 
 package FML::Merge;
@@ -83,6 +83,7 @@ sub set_target_system
     my ($self, $system) = @_;
 
     # dummy yet.
+    # XXX-TODO: DUMMY.
 }
 
 
@@ -460,7 +461,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2004 Ken'ichi Fukamachi
+Copyright (C) 2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/FML/Merge/FML4/List.pm b/fml/lib/FML/Merge/FML4/List.pm
index 2dd4cc5d..24206e52 100644
--- a/fml/lib/FML/Merge/FML4/List.pm
+++ b/fml/lib/FML/Merge/FML4/List.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2004 Ken'ichi Fukamachi
+#  Copyright (C) 2004,2005 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: List.pm,v 1.6 2004/07/23 13:16:41 fukachan Exp $
+# $FML: List.pm,v 1.7 2004/07/23 15:59:08 fukachan Exp $
 #
 
 package FML::Merge::FML4::List;
@@ -148,6 +148,7 @@ sub _convert_etc_passwd
     my $src = $m_config->backup_file_path('etc/passwd');
     my $dst = $m_config->new_file_path('etc/passwd-admin');
 
+    # XXX-TODO: NOT YET IMPLEMENTED
     print STDERR "warning: etc/passwrd conversion not yet implemented\n";
 }
 
@@ -204,7 +205,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2004 Ken'ichi Fukamachi
+Copyright (C) 2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/FML/Parse.pm b/fml/lib/FML/Parse.pm
index c992dcba..f511b384 100644
--- a/fml/lib/FML/Parse.pm
+++ b/fml/lib/FML/Parse.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2000,2001,2002,2003,2004 Ken'ichi Fukamachi
+#  Copyright (C) 2000,2001,2002,2003,2004,2005 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Parse.pm,v 1.34 2004/07/11 15:43:37 fukachan Exp $
+# $FML: Parse.pm,v 1.35 2004/12/05 16:19:05 fukachan Exp $
 #
 
 package FML::Parse;
@@ -28,7 +28,8 @@ FML::Parse - parse the incoming message.
 
 FML::Parse parses the incoming message. C<new()> analyses the data
 injected from STDIN channel, by default, and split it to a set of mail
-header and body.  C<new()> returns a C<Mail::Message> object chain.
+header and body objects. C<new()> returns a C<Mail::Message> object
+chain.
 
 =head1 METHODS
 
@@ -105,7 +106,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2000,2001,2002,2003,2004 Ken'ichi Fukamachi
+Copyright (C) 2000,2001,2002,2003,2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/FML/Process/Addr.pm b/fml/lib/FML/Process/Addr.pm
index a10d9890..2858ba1d 100644
--- a/fml/lib/FML/Process/Addr.pm
+++ b/fml/lib/FML/Process/Addr.pm
@@ -1,9 +1,9 @@
 #-*- perl -*-
 #
-# Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
+# Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Addr.pm,v 1.18 2004/04/23 04:10:35 fukachan Exp $
+# $FML: Addr.pm,v 1.19 2004/07/11 15:43:38 fukachan Exp $
 #
 
 package FML::Process::Addr;
@@ -236,7 +236,7 @@ sub _fmladdr
     my $list = $sys->get_user_list();
 
     for my $user (keys %$list) {
-	# hmm, user is important than alias ? or not ?
+	# XXX MTA looks prefer alias then user, ok ?
 	unless (defined $aliases->{ $user }) {
 	    $aliases->{ $user } = "$user (LOCAL USER)";
 	}
@@ -261,7 +261,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/FML/Process/CGI/Param.pm b/fml/lib/FML/Process/CGI/Param.pm
index aa9cfcef..38a61bcf 100644
--- a/fml/lib/FML/Process/CGI/Param.pm
+++ b/fml/lib/FML/Process/CGI/Param.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Param.pm,v 1.22 2004/01/21 03:40:43 fukachan Exp $
+# $FML: Param.pm,v 1.23 2004/07/23 13:08:56 fukachan Exp $
 #
 
 package FML::Process::CGI::Param;
@@ -109,6 +109,7 @@ sub safe_paramlist
     $key = $safe_method_regexp->{ $key };
     for my $x (param()) {
 	if ($x =~ /^$key$/) {
+	    # XXX-TODO: $value is checked ???
 	    my $value = defined param($x) ? param($x) : '';
 	    if ($numregexp == 1) { push(@list, [ $1, $value ] );}
 	    if ($numregexp == 2) { push(@list, [ $1, $2, $value ] );}
@@ -136,7 +137,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/FML/Process/Calendar.pm b/fml/lib/FML/Process/Calendar.pm
index 081bf0c0..375340a4 100644
--- a/fml/lib/FML/Process/Calendar.pm
+++ b/fml/lib/FML/Process/Calendar.pm
@@ -1,9 +1,9 @@
 #-*- perl -*-
 #
-# Copyright (C) 2002,2003,2004 Ken'ichi Fukamachi
+# Copyright (C) 2002,2003,2004,2005 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Calendar.pm,v 1.14 2004/07/11 15:43:38 fukachan Exp $
+# $FML: Calendar.pm,v 1.15 2004/12/23 12:32:05 fukachan Exp $
 #
 
 package FML::Process::Calendar;
@@ -39,7 +39,7 @@ constructor.
 
 =head2 prepare($args)
 
-load default configuration file to use path_* variables.
+load default configuration file to use $path_* variables.
 
 =head2 verify_request($args)
 
@@ -51,7 +51,7 @@ main routine.
 
 parse files under ~$user/.schedule/ directory and summarize it.
 
-Lastly, use w3m to show schedul as html table.
+Lastly, use w3m to show schedule as html table.
 
 =head2 finish($args)
 
@@ -131,11 +131,13 @@ sub run
     $mode             = $option->{ m } if defined $option->{ m };
     my $schedule_dir  = $option->{ D } if defined $option->{ D };
     my $schedule_file = $option->{ F } if defined $option->{ F };
-    my $schargs  = {
+    my $schargs       = {
 	schedule_dir  => $schedule_dir,
 	schedule_file => undef,
     };
-    my $schedule = new FML::Demo::Calendar $schargs;
+
+    # create a scheduler object.
+    my $schedule      = new FML::Demo::Calendar $schargs;
 
     # prepare output channel
     my $tmpf     = $schedule->tmpfilepath;
@@ -150,7 +152,7 @@ sub run
     # set output mode
     $schedule->set_mode( $mode );
 
-    # -a option: show three calendars for this, next and last month.
+    # -a option: show three monthly calendars for this, next and last month.
     if (defined($option->{ a })) {
 	for my $month ('this', 'next', 'last') {
 	    $schedule->print_specific_month($wh, $month);
@@ -229,7 +231,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2002,2003,2004 Ken'ichi Fukamachi
+Copyright (C) 2002,2003,2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/FML/Process/ConfViewer.pm b/fml/lib/FML/Process/ConfViewer.pm
index 0e383382..ccdcf6c0 100644
--- a/fml/lib/FML/Process/ConfViewer.pm
+++ b/fml/lib/FML/Process/ConfViewer.pm
@@ -1,9 +1,9 @@
 #-*- perl -*-
 #
-# Copyright (C) 2000,2001,2002,2003,2004 Ken'ichi Fukamachi
+# Copyright (C) 2000,2001,2002,2003,2004,2005 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: ConfViewer.pm,v 1.30 2004/04/23 04:10:36 fukachan Exp $
+# $FML: ConfViewer.pm,v 1.31 2004/07/11 15:43:39 fukachan Exp $
 #
 
 package FML::Process::ConfViewer;
@@ -48,7 +48,7 @@ show help unless @ARGV.
 =cut
 
 
-# Descriptions: constructor
+# Descriptions: constructor.
 #    Arguments: OBJ($self) HASH_REF($args)
 # Side Effects: none
 # Return Value: FML::Process::ConfViewer object
@@ -88,10 +88,10 @@ sub prepare
 }
 
 
-# Descriptions: check @ARGV, call help() if needed
+# Descriptions: check @ARGV, call help() if needed.
 #    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: exit ASAP.
-#               longjmp() to help() if appropriate
+#               longjmp() to help() if needed.
 # Return Value: none
 sub verify_request
 {
@@ -234,7 +234,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2000,2001,2002,2003,2004 Ken'ichi Fukamachi
+Copyright (C) 2000,2001,2002,2003,2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/FML/Process/Emulate.pm b/fml/lib/FML/Process/Emulate.pm
index e5f5b65c..25432abf 100644
--- a/fml/lib/FML/Process/Emulate.pm
+++ b/fml/lib/FML/Process/Emulate.pm
@@ -1,9 +1,9 @@
 #-*- perl -*-
 #
-# Copyright (C) 2004 Ken'ichi Fukamachi
+# Copyright (C) 2004,2005 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Emulate.pm,v 1.4 2004/12/09 04:53:41 fukachan Exp $
+# $FML: Emulate.pm,v 1.5 2004/12/19 11:04:43 fukachan Exp $
 #
 
 package FML::Process::Emulate;
@@ -190,6 +190,7 @@ sub _fml4_emulate_error_process
     # |/usr/local/fml/libexec/mead.pl \
     #  -E /usr/local/fml -S /var/spool/ml -D /var/spool/ml/elena
 
+    # XXX-TODO: disabled for test ?
     $curproc->log("start as error mail analyzer mode");
 
     exit(0);
@@ -225,6 +226,7 @@ sub _fml4_emulate_digest_process
     # /usr/local/fml/msend.pl /var/spool/ml/elena
     $curproc->log("start as article digest mode");
 
+    # XXX-TODO: disabled for test ?
     exit(0);
 
     eval q{
@@ -292,7 +294,7 @@ sub generate_config_cf_from_config_ph
 	# OK, DO NOTHING.
     }
     else {
-	;
+	# ? abnormal ???
     }
 }
 
@@ -307,7 +309,6 @@ sub _fml4_merge
     my $src_dir = $params->{ src_dir }       || undef;
     my $system  = $params->{ target_system } || undef;
 
-    # XXX-TODO: configurable.
     use FML::Merge;
     my $merge = new FML::Merge $curproc, $params;
     $merge->set_target_system($system);
@@ -345,7 +346,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2004 Ken'ichi Fukamachi
+Copyright (C) 2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 reEmulate it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/FML/Process/Error.pm b/fml/lib/FML/Process/Error.pm
index c1c63553..81887830 100644
--- a/fml/lib/FML/Process/Error.pm
+++ b/fml/lib/FML/Process/Error.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2002,2003,2004,2005 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Error.pm,v 1.48 2005/01/01 08:36:29 fukachan Exp $
+# $FML: Error.pm,v 1.49 2005/01/23 00:54:38 fukachan Exp $
 #
 
 package FML::Process::Error;
@@ -96,12 +96,12 @@ sub prepare
 
 =head2 verify_request($args)
 
-dummy.
+set up maintainer.
 
 =cut
 
 
-# Descriptions: dummy.
+# Descriptions: set up maintainer.
 #    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: 1 or 0
diff --git a/fml/lib/FML/Process/QueueManager.pm b/fml/lib/FML/Process/QueueManager.pm
index 635defa8..b866e36d 100644
--- a/fml/lib/FML/Process/QueueManager.pm
+++ b/fml/lib/FML/Process/QueueManager.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: QueueManager.pm,v 1.33 2005/01/19 13:49:09 fukachan Exp $
+# $FML: QueueManager.pm,v 1.34 2005/01/23 00:54:39 fukachan Exp $
 #
 
 package FML::Process::QueueManager;
@@ -96,6 +96,7 @@ sub send
 	$ra = [ $id ];
     }
     else {
+	# XXX-TODO: customizable
 	$queue->set_policy("fair-queue");
 	$ra = $queue->list();
 	unless (@$ra) {
@@ -180,7 +181,7 @@ sub _send
     use FML::Mailer;
     my $obj = new FML::Mailer $curproc;
 
-    # XXX-TODO: ? no lock for recipient maps here ???
+    # XXX lock for recipient maps is NOT needed since already a copy.
     # XXX queue is already locked and need no lock for recipient maps here.
     my $r   = $obj->send({
 	sender     => $info->{ sender },
@@ -224,6 +225,7 @@ sub cleanup
     my $queue = new Mail::Delivery::Queue { directory => $queue_dir };
     $queue->set_log_function($fp);
 
+    # XXX-TODO: customizable. $mail_queue_max_lifetime = 5d ?
     my $list  = $queue->list_all() || [];
     my $limit = 5 * 24 * 3600; # 5 days.
     my $now   = time;
diff --git a/fml/lib/FML/Restriction/CGI.pm b/fml/lib/FML/Restriction/CGI.pm
index 744c0df0..a44b07b4 100644
--- a/fml/lib/FML/Restriction/CGI.pm
+++ b/fml/lib/FML/Restriction/CGI.pm
@@ -1,9 +1,9 @@
 #-*- perl -*-
 #
-# Copyright (C) 2001,2002,2004 Ken'ichi Fukamachi
+# Copyright (C) 2001,2002,2004,2005 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: CGI.pm,v 1.11 2004/01/21 03:40:43 fukachan Exp $
+# $FML: CGI.pm,v 1.12 2004/07/23 13:16:43 fukachan Exp $
 #
 
 package FML::Restriction::CGI;
@@ -53,7 +53,7 @@ my %cgi_methond =
 
 
 
-# Descriptions: return set of basic variable safe expressions as HASH_REF.
+# Descriptions: return a set of basic variable safe expressions as HASH_REF.
 #    Arguments: OBJ($self)
 # Side Effects: none
 # Return Value: HASH_REF
@@ -64,7 +64,7 @@ sub param_regexp
 }
 
 
-# Descriptions: return set of method safe expressions as HASH_REF.
+# Descriptions: return a set of method safe expressions as HASH_REF.
 #    Arguments: OBJ($self)
 # Side Effects: none
 # Return Value: HASH_REF
@@ -122,7 +122,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002,2004 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/FML/Restriction/Post.pm b/fml/lib/FML/Restriction/Post.pm
index e7804a5e..3dde1039 100644
--- a/fml/lib/FML/Restriction/Post.pm
+++ b/fml/lib/FML/Restriction/Post.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2003,2004 Ken'ichi Fukamachi
+#  Copyright (C) 2003,2004,2005 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Post.pm,v 1.15 2004/11/14 11:18:23 fukachan Exp $
+# $FML: Post.pm,v 1.16 2004/12/05 16:19:13 fukachan Exp $
 #
 
 package FML::Restriction::Post;
@@ -98,9 +98,9 @@ sub permit_member_maps
     my $curproc = $self->{ _curproc };
     my $cred    = $curproc->{ credential };
 
-    # Q: the mail sender is a ML member?
+    # Q: the mail sender is an ML member?
     if ($cred->is_member($sender)) {
-	# A: Yes, we permit to distribute this article.
+	# A: Yes, we permit this article to distribute.
 	return("matched", "permit");
     }
     else {
@@ -147,10 +147,15 @@ sub reject
 
 =head1 EXTENSION
 
+=head2 check_article_thread($rule, $sender)
+
+check references and permit post of this article if it refers this
+thread.
+
 =cut
 
 
-# Descriptions: check references and permit this message 
+# Descriptions: check references and permit this article
 #               if it refers this thread.
 #    Arguments: OBJ($self) STR($rule) STR($sender)
 # Side Effects: none
@@ -201,7 +206,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2003,2004 Ken'ichi Fukamachi
+Copyright (C) 2003,2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/FML/Sys/Alias.pm b/fml/lib/FML/Sys/Alias.pm
index ec95b6c6..5056dafd 100644
--- a/fml/lib/FML/Sys/Alias.pm
+++ b/fml/lib/FML/Sys/Alias.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2003,2004 Ken'ichi Fukamachi
+#  Copyright (C) 2003,2004,2005 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Alias.pm,v 1.3 2004/07/11 15:43:40 fukachan Exp $
+# $FML: Alias.pm,v 1.4 2004/07/23 13:16:44 fukachan Exp $
 #
 
 package FML::Sys::Alias;
@@ -18,7 +18,7 @@ my $debug = 0;
 
 =head1 NAME
 
-FML::Sys::Alias - get mail alias infomation on this system.
+FML::Sys::Alias - get mail alias information on this system.
 
 =head1 SYNOPSIS
 
@@ -49,7 +49,7 @@ sub new
 }
 
 
-# Descriptions: get entrise in $file (e.g. /etc/mail/aliases)
+# Descriptions: get entries in $file (e.g. /etc/mail/aliases).
 #    Arguments: OBJ($self) STR($file)
 # Side Effects: none
 # Return Value: HASH_REF
@@ -110,7 +110,7 @@ sub expand
 }
 
 
-# Descriptions: expand $key
+# Descriptions: expand $key and return the result as ARRAY_REF.
 #    Arguments: OBJ($self) STR($key) ARRAY_REF($value) NUM($recursive)
 # Side Effects: none
 # Return Value: ARRAY_REF
@@ -182,7 +182,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2003,2004 Ken'ichi Fukamachi
+Copyright (C) 2003,2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/FML/Sys/User.pm b/fml/lib/FML/Sys/User.pm
index c0ec7046..7fa7d0d0 100644
--- a/fml/lib/FML/Sys/User.pm
+++ b/fml/lib/FML/Sys/User.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2003,2004 Ken'ichi Fukamachi
+#  Copyright (C) 2003,2004,2005 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: User.pm,v 1.3 2004/07/11 15:43:40 fukachan Exp $
+# $FML: User.pm,v 1.4 2004/07/23 13:16:44 fukachan Exp $
 #
 
 package FML::Sys::User;
@@ -16,7 +16,7 @@ use Config;
 
 =head1 NAME
 
-FML::Sys::User - get user infomation on this system.
+FML::Sys::User - get user information on this system.
 
 =head1 SYNOPSIS
 
@@ -95,7 +95,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2003,2004 Ken'ichi Fukamachi
+Copyright (C) 2003,2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/FML/User/Info.pm b/fml/lib/FML/User/Info.pm
index a5759373..a7b67242 100644
--- a/fml/lib/FML/User/Info.pm
+++ b/fml/lib/FML/User/Info.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2003,2004 Ken'ichi Fukamachi
+#  Copyright (C) 2003,2004,2005 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Info.pm,v 1.2 2004/01/21 03:40:44 fukachan Exp $
+# $FML: Info.pm,v 1.3 2004/07/23 13:09:49 fukachan Exp $
 #
 
 package FML::User::Info;
@@ -60,7 +60,7 @@ information.
 =cut
 
 
-# Descriptions: update user database based on header infomation.
+# Descriptions: update user database based on header information.
 #    Arguments: OBJ($self) OBJ($curproc) HASH_REF($info)
 # Side Effects: update db.
 # Return Value: none
@@ -94,8 +94,12 @@ sub import_from_mail_header
 
 =head2 set_gecos($address, $gecos)
 
+update gecos database.
+
 =head2 get_gecos($address)
 
+get information from gecos database.
+
 =cut
 
 
@@ -127,8 +131,12 @@ sub get_gecos
 
 =head2 set_subscribe_date($address, $subscribe_date)
 
+update subscribe_date database.
+
 =head2 get_subscribe_date($address)
 
+get information from subscribe_date database.
+
 =cut
 
 
@@ -166,7 +174,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2003,2004 Ken'ichi Fukamachi
+Copyright (C) 2003,2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/IO/Adapter/Array.pm b/fml/lib/IO/Adapter/Array.pm
index 014439d1..f05b5a66 100644
--- a/fml/lib/IO/Adapter/Array.pm
+++ b/fml/lib/IO/Adapter/Array.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Array.pm,v 1.35 2004/01/24 09:03:55 fukachan Exp $
+# $FML: Array.pm,v 1.36 2004/06/30 03:05:14 fukachan Exp $
 #
 
 package IO::Adapter::Array;
@@ -209,7 +209,6 @@ sub eof
 {
     my ($self) = @_;
 
-    # XXX-TODO: > ? >= ? OK?
     $self->{_counter} > $self->{_num_elements} ? 1 : 0;
 }
 
@@ -234,7 +233,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/IO/Adapter/File.pm b/fml/lib/IO/Adapter/File.pm
index 3df90309..0e319129 100644
--- a/fml/lib/IO/Adapter/File.pm
+++ b/fml/lib/IO/Adapter/File.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: File.pm,v 1.59 2004/07/23 15:59:14 fukachan Exp $
+# $FML: File.pm,v 1.60 2004/08/14 05:02:00 fukachan Exp $
 #
 
 package IO::Adapter::File;
@@ -768,6 +768,7 @@ sub sequence_replace
 	if (defined $rh) {
 	    my $id = $self->_read_one_word($rh);
 	    unless ($new_id == $id) {
+		# XXX-TODO: need to rollback ?
 		$self->error_set("fail to save id");
 	    }
 	    $rh->close();
@@ -809,7 +810,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/Mail/Delivery/Net/INET6.pm b/fml/lib/Mail/Delivery/Net/INET6.pm
index c1dc1694..9649b55b 100644
--- a/fml/lib/Mail/Delivery/Net/INET6.pm
+++ b/fml/lib/Mail/Delivery/Net/INET6.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: INET6.pm,v 1.14 2004/01/24 09:03:58 fukachan Exp $
+# $FML: INET6.pm,v 1.15 2004/06/29 10:05:29 fukachan Exp $
 #
 
 package Mail::Delivery::Net::INET6;
@@ -131,6 +131,7 @@ sub connect6
 	    # check only IPv6 case here.
 	    next ADDR_ENTRY if $family != AF_INET6;
 
+	    # XXX-TODO: timeout customizable
 	    $fh = new IO::Socket;
 	    socket($fh, $family, $type, $proto) || do {
 		# XXX-TODO: need error_clear() some where ???
@@ -227,7 +228,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/Mail/Message/Checksum.pm b/fml/lib/Mail/Message/Checksum.pm
index 0ca64a8b..9fd957a0 100644
--- a/fml/lib/Mail/Message/Checksum.pm
+++ b/fml/lib/Mail/Message/Checksum.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Checksum.pm,v 1.11 2004/01/24 09:03:59 fukachan Exp $
+# $FML: Checksum.pm,v 1.12 2004/07/23 13:16:44 fukachan Exp $
 #
 
 package Mail::Message::Checksum;
@@ -153,7 +153,7 @@ sub _md5_by_program
 	use FileHandle;
 	my ($rh, $wh) = FileHandle::pipe;
 
-	# XXX-TODO: UNIX only.
+	# XXX UNIX only o.k. MD5 and Digest::MD5 are available on M$.
 	eval qq{ require IPC::Open2; IPC::Open2->import();};
 	my $pid = open2($rh, $wh, $self->{ _program });
 	if (defined $pid) {
@@ -268,7 +268,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/Mail/Message/Date.pm b/fml/lib/Mail/Message/Date.pm
index 70a4ba4a..8e9c84c2 100644
--- a/fml/lib/Mail/Message/Date.pm
+++ b/fml/lib/Mail/Message/Date.pm
@@ -1,8 +1,8 @@
 #-*- perl -*-
 #
-# Copyright (C) 2000,2001,2002,2003,2004 Ken'ichi Fukamachi
+# Copyright (C) 2000,2001,2002,2003,2004,2005 Ken'ichi Fukamachi
 #
-# $FML: Date.pm,v 1.27 2004/02/15 04:38:37 fukachan Exp $
+# $FML: Date.pm,v 1.28 2004/07/23 13:10:42 fukachan Exp $
 #
 
 package Mail::Message::Date;
@@ -579,6 +579,9 @@ sub _speculate_timezone
 }
 
 
+#
+# debug
+#
 if ($0 eq __FILE__) {
     print "// 1. time zone.\n";
     print "default\ttimezone = ", _speculate_timezone(), "\n";
@@ -614,7 +617,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2000,2001,2002,2003,2004 Ken'ichi Fukamachi
+Copyright (C) 2000,2001,2002,2003,2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/Mail/Message/Language.pm b/fml/lib/Mail/Message/Language.pm
index 7a94537e..4f49a256 100644
--- a/fml/lib/Mail/Message/Language.pm
+++ b/fml/lib/Mail/Message/Language.pm
@@ -1,8 +1,8 @@
 #-*- perl -*-
 #
-# Copyright (C) 2003,2004 Ken'ichi Fukamachi
+# Copyright (C) 2003,2004,2005 Ken'ichi Fukamachi
 #
-# $FML: Language.pm,v 1.4 2004/02/29 15:59:41 fukachan Exp $
+# $FML: Language.pm,v 1.5 2004/07/23 13:16:44 fukachan Exp $
 #
 
 package Mail::Message::Language;
@@ -21,6 +21,12 @@ Mail::Message::Language - handle *-Language: field.
 
 =head1 METHODS
 
+=head2 accept_language_list()
+
+return list of languages to accept as ARRAY_REF.
+
+XXX THIS CLASS IS USED ONLY WITHIN Mail::Message CLASS.
+
 =cut
 
 
@@ -62,7 +68,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2003,2004 Ken'ichi Fukamachi
+Copyright (C) 2003,2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/Mail/Message/String.pm b/fml/lib/Mail/Message/String.pm
index 9a2dc085..8afc049c 100644
--- a/fml/lib/Mail/Message/String.pm
+++ b/fml/lib/Mail/Message/String.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2004 Ken'ichi Fukamachi
+#  Copyright (C) 2004,2005 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: String.pm,v 1.8 2004/07/23 13:16:45 fukachan Exp $
+# $FML: String.pm,v 1.9 2004/07/23 15:59:16 fukachan Exp $
 #
 
 package Mail::Message::String;
@@ -158,7 +158,7 @@ sub mime_encode
 	print "\tencode($str, $encode, $out_code, $in_code)\n";
     }
 
-    # XXX-TODO: we cannot mime-encode not iso-2022-jp string.
+    # XXX-TODO: we cannot mime-encode non iso-2022-jp string.
     use Mail::Message::Encode;
     my $obj = new Mail::Message::Encode;
     $str    = $obj->encode_mime_string($str, $encode, $out_code, $in_code);
@@ -264,7 +264,7 @@ In fact, this module return the mime encoded string as iso-2022-jp
 sub charcode_convert
 {
     my ($self, $out_code, $in_code) = @_;
-    my $str       = $self->as_str();
+    my $str = $self->as_str();
 
     # speculate internal code we should use for this string.
     $out_code ||= $self->_speculate_internal_code();
@@ -403,11 +403,11 @@ sub unfold
 }
 
 
-=head2 is_citation($data)
+=head2 is_citation()
 
 $data looks a citation or not.
 
-=head2 is_signature($data)
+=head2 is_signature()
 
 $data looks a citation or not.
 
@@ -520,7 +520,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2004 Ken'ichi Fukamachi
+Copyright (C) 2004,2005 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.