fix comments

5 files changed, 20 insertions, 20 deletions

diff --git a/fml/lib/Mail/Message/Date.pm b/fml/lib/Mail/Message/Date.pm
index 61f7d030..077ad5cc 100644
--- a/fml/lib/Mail/Message/Date.pm
+++ b/fml/lib/Mail/Message/Date.pm
@@ -2,7 +2,7 @@
 #
 # Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi
 #
-# $FML: Date.pm,v 1.15 2002/12/22 03:09:56 fukachan Exp $
+# $FML: Date.pm,v 1.16 2002/12/24 10:19:49 fukachan Exp $
 #
 
 package Mail::Message::Date;
@@ -157,7 +157,7 @@ sub YYYYMMDD
 
 
 # Descriptions: return e.g. 1999/09/13 style
-#    Arguments: OBJ($self) NUM($time)
+#    Arguments: OBJ($self) NUM($time) STR($sep)
 # Side Effects: none
 # Return Value: STR
 sub YYYYxMMxDD
diff --git a/fml/lib/Mail/Message/Encode.pm b/fml/lib/Mail/Message/Encode.pm
index 39c11970..b6793f3f 100644
--- a/fml/lib/Mail/Message/Encode.pm
+++ b/fml/lib/Mail/Message/Encode.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: Encode.pm,v 1.9 2002/11/26 13:55:46 fukachan Exp $
+# $FML: Encode.pm,v 1.10 2002/12/22 03:09:56 fukachan Exp $
 #
 
 package Mail::Message::Encode;
@@ -453,7 +453,7 @@ by $options->{ charset }.
 
 
 # Descriptions: decode MIME string
-#    Arguments: OBJ($self) STR($str) STR($encode) STR($out_code) STR($in_code)
+#    Arguments: OBJ($self) STR($str) STR($out_code) STR($in_code)
 # Side Effects: none
 # Return Value: STR
 sub decode_mime_string
diff --git a/fml/lib/Mail/Message/Language/Japanese/Subject.pm b/fml/lib/Mail/Message/Language/Japanese/Subject.pm
index 644b94e0..1d940bd1 100644
--- a/fml/lib/Mail/Message/Language/Japanese/Subject.pm
+++ b/fml/lib/Mail/Message/Language/Japanese/Subject.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: Subject.pm,v 1.10 2002/09/22 14:57:05 fukachan Exp $
+# $FML: Subject.pm,v 1.11 2002/12/22 03:09:56 fukachan Exp $
 #
 
 
@@ -105,7 +105,7 @@ within C<Subject:>.
 
 
 # Descriptions: remove Re:
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: STR($subject)
 # Side Effects: none
 # Return Value: STR
 sub cut_off_reply_tag
diff --git a/fml/lib/Mail/Message/MH.pm b/fml/lib/Mail/Message/MH.pm
index 5d7e2ce6..685dd7b2 100644
--- a/fml/lib/Mail/Message/MH.pm
+++ b/fml/lib/Mail/Message/MH.pm
@@ -2,7 +2,7 @@
 #
 # Copyright (C) 2001,2002 Ken'ichi Fukamachi
 #
-# $FML: MH.pm,v 1.9 2002/09/11 23:18:25 fukachan Exp $
+# $FML: MH.pm,v 1.10 2002/09/22 14:57:04 fukachan Exp $
 #
 
 package Mail::Message::MH;
@@ -109,7 +109,7 @@ sub expand
 
 
 # Descriptions: make an array from $fist to $last number
-#    Arguments: NUM($first_number) NUM($last_number)
+#    Arguments: NUM($first) NUM($last)
 # Side Effects: none
 # Return Value: ARRAY_REF (as [ $first .. $last ])
 sub _expand_range
diff --git a/fml/lib/Mail/Message/ToHTML.pm b/fml/lib/Mail/Message/ToHTML.pm
index 17e817e4..d311851d 100644
--- a/fml/lib/Mail/Message/ToHTML.pm
+++ b/fml/lib/Mail/Message/ToHTML.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: ToHTML.pm,v 1.30 2002/10/29 09:47:15 fukachan Exp $
+# $FML: ToHTML.pm,v 1.31 2002/11/18 22:45:08 fukachan Exp $
 #
 
 package Mail::Message::ToHTML;
@@ -17,7 +17,7 @@ my $debug = 0;
 my $URL   =
     "<A HREF=\"http://www.fml.org/software/\">Mail::Message::ToHTML</A>";
 
-my $version = q$FML: ToHTML.pm,v 1.30 2002/10/29 09:47:15 fukachan Exp $;
+my $version = q$FML: ToHTML.pm,v 1.31 2002/11/18 22:45:08 fukachan Exp $;
 if ($version =~ /,v\s+([\d\.]+)\s+/) {
     $version = "$URL $1";
 }
@@ -598,20 +598,20 @@ sub _set_output_channel
 
 # Descriptions: return temporary file path.
 #               XXX temporary file is created under $db_dir not public space
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($self)
 # Side Effects: none
 # Return Value: STR
 sub _create_temporary_filename
 {
-    my ($self, $msg) = @_;
-    my $db_dir  = $self->{ _html_base_directory };
+    my ($self) = @_;
+    my $db_dir = $self->{ _html_base_directory };
 
     return "$db_dir/tmp$$";
 }
 
 
 # Descriptions: create a temporary file with the content $msg
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($self) OBJ($msg)
 # Side Effects: create $tmpf file
 # Return Value: STR
 sub _create_temporary_file_in_raw_mode
@@ -686,7 +686,7 @@ sub _print_inline_object_link
 
 
 # Descriptions: return attachment filename
-#    Arguments: OBJ($self) STR($attach) STR($suffix)
+#    Arguments: STR($dst) STR($attach) STR($suffix)
 # Side Effects: none
 #         Todo: UNIX specific
 # Return Value: STR
@@ -744,7 +744,7 @@ sub _format_safe_header
 
 
 # Descriptions: show link to indexes as navigation
-#    Arguments: none
+#    Arguments: HASH_REF($args)
 # Side Effects: none
 # Return Value: none
 sub _format_index_navigator
@@ -1326,7 +1326,7 @@ sub _update_relation
 
 
 # Descriptions: return thread link relation info et.al. for $id
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($self) NUM($id)
 # Side Effects: none
 # Return Value: HASH_REF
 sub evaluate_relation
@@ -2343,7 +2343,7 @@ sub _print_end_of_ul
 
 
 # Descriptions: print <LI> filename ... with proper indentation
-#    Arguments: OBJ($self) HANDLE($wh) HASH_REF($db) STR($code)
+#    Arguments: OBJ($self) HANDLE($wh) HASH_REF($db) NUM($id) STR($code)
 # Side Effects: none
 # Return Value: none
 sub _print_li_filename
@@ -2496,7 +2496,7 @@ try to convert all rfc822 messages to HTML in C<$dir> directory.
 
 
 # Descriptions: convert $file to HTML
-#    Arguments: STR($file) HASH_REF($args)
+#    Arguments: OBJ($self) STR($file) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
 sub htmlify_file
@@ -2549,7 +2549,7 @@ sub htmlify_file
 
 
 # Descriptions: convert all articles in specified directory
-#    Arguments: STR($src_dir) HASH_REF($args)
+#    Arguments: OBJ($self) STR($src_dir) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
 sub htmlify_dir