fix comments (FNF)

3 files changed, 18 insertions, 17 deletions

diff --git a/fml/lib/Mail/Bounce.pm b/fml/lib/Mail/Bounce.pm
index 3fba398f..eefbb6e8 100644
--- a/fml/lib/Mail/Bounce.pm
+++ b/fml/lib/Mail/Bounce.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: Bounce.pm,v 1.27 2004/01/24 09:03:56 fukachan Exp $
+# $FML: Bounce.pm,v 1.28 2004/06/30 03:05:15 fukachan Exp $
 #
 
 package Mail::Bounce;
@@ -49,7 +49,7 @@ object.
 
 For non DSN pattern,
 try to analyze it by using modules in C<Mail::Bounce::>
-which can recognize MTA specific and domian specific patterns.
+which can recognize MTA specific and domain specific patterns.
 
 For example,
 
@@ -113,7 +113,7 @@ for C<Mail::Bounce::> modules, for example, C<Mail::Bounce::DSN>.
 C<Mail::Bounce::$model::analyze( \$msg, \$result )>
 method in each module is the actual model specific analyzer.
 C<$result> has an answer of analyze if the error message pattern is
-already known.
+one of already known formats.
 
 =cut
 
@@ -152,6 +152,7 @@ sub analyze
 	};
 	croak($@) if $@;
 
+	# FOUND! if found, this loop ends here for FIRST MATCH.
 	if (keys %$result) {
 	    print STDERR "\n   match $module\n" if $debug;
 	    last MODEL;
@@ -291,7 +292,7 @@ It is rarely used.
 =cut
 
 
-# Descriptions: clean up address for further use
+# Descriptions: clean up address for further use.
 #    Arguments: OBJ($self) STR($hint) STR($addr)
 # Side Effects: none
 # Return Value: STR
@@ -301,7 +302,7 @@ sub address_clean_up
 
     if ($debug) { print STDERR "address_clean_up($hint, $addr)\n";}
 
-    # nuke predecing and trailing strings around user@domain pattern
+    # remove prepended and trailing strings around user@domain pattern.
     my $prev_addr = $addr;
     do {
 	$prev_addr = $addr;
@@ -341,7 +342,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/Bounce/FixBrokenAddress.pm b/fml/lib/Mail/Bounce/FixBrokenAddress.pm
index 82b977a1..b3526d5c 100644
--- a/fml/lib/Mail/Bounce/FixBrokenAddress.pm
+++ b/fml/lib/Mail/Bounce/FixBrokenAddress.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  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.
 #
-# $FML: FixBrokenAddress.pm,v 1.11 2004/01/24 09:00:54 fukachan Exp $
+# $FML: FixBrokenAddress.pm,v 1.12 2004/06/30 03:05:16 fukachan Exp $
 #
 
 
@@ -21,7 +21,7 @@ my $debug = 0;
 
 =head1 NAME
 
-Mail::Bounce::FixBrokenAddress - handle irregular error message.
+Mail::Bounce::FixBrokenAddress - fix invalid address.
 
 =head1 SYNOPSIS
 
@@ -76,7 +76,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/Mail/Bounce/Language/Japanese.pm b/fml/lib/Mail/Bounce/Language/Japanese.pm
index 03730ac3..c0fe99aa 100644
--- a/fml/lib/Mail/Bounce/Language/Japanese.pm
+++ b/fml/lib/Mail/Bounce/Language/Japanese.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: Japanese.pm,v 1.10 2004/01/24 09:00:55 fukachan Exp $
+# $FML: Japanese.pm,v 1.11 2004/06/30 03:05:17 fukachan Exp $
 #
 
 #
@@ -91,9 +91,9 @@ sub _japanese_address_match
     my $rbuf   = $args->{ buf };
     my $buf    = $$rbuf;
 
-    # XXX-TODO: use Mail::Message::Encode.
-    use Jcode;
-    &Jcode::convert(\$buf, 'euc');
+    use Mail::Message::Encode;
+    my $encode = new Mail::Message::Encode;
+    $encode->convert_str_ref(\$buf, 'euc-jp');
 
     print STDERR "rbuf={$buf}\n" if $debug;
 
@@ -133,7 +133,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.