fix comments (FNF)

5 files changed, 30 insertions, 20 deletions

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.