fix comments.

6 files changed, 27 insertions, 26 deletions

diff --git a/fml/lib/Mail/Bounce/DSN.pm b/fml/lib/Mail/Bounce/DSN.pm
index 928edd33..6773f0d3 100644
--- a/fml/lib/Mail/Bounce/DSN.pm
+++ b/fml/lib/Mail/Bounce/DSN.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003,2004 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: DSN.pm,v 1.21 2003/01/11 15:14:24 fukachan Exp $
+# $FML: DSN.pm,v 1.22 2003/01/26 03:23:09 fukachan Exp $
 #
 
 
@@ -79,7 +79,7 @@ See RFC1894 on DSN (Delivery Status Notification) definition.
 =cut
 
 
-# Descriptions: analyze DSN
+# Descriptions: analyze DSN format message.
 #    Arguments: OBJ($self) OBJ($msg) HASH_REF($result)
 # Side Effects: update $result
 # Return Value: none
@@ -87,7 +87,7 @@ sub analyze
 {
     my ($self, $msg, $result) = @_;
     my $m = $msg->whole_message_body_head;
-    $m = $m->find( { data_type => 'message/delivery-status' } );
+    $m    = $m->find( { data_type => 'message/delivery-status' } );
 
     if (defined $m) {
 	# data in the part
@@ -171,7 +171,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003,2004 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 0bd69e7d..feecca21 100644
--- a/fml/lib/Mail/Bounce/FixBrokenAddress.pm
+++ b/fml/lib/Mail/Bounce/FixBrokenAddress.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: FixBrokenAddress.pm,v 1.9 2002/12/20 03:49:15 fukachan Exp $
+# $FML: FixBrokenAddress.pm,v 1.10 2004/01/02 14:42:47 fukachan Exp $
 #
 
 
@@ -36,7 +36,7 @@ See C<Mail::Bounce> for more details.
 =cut
 
 
-# Descriptions: speculate correct address
+# Descriptions: speculate correct address.
 #    Arguments: STR($hint) STR($addr)
 # Side Effects: speculate $addr
 # Return Value: STR($addr)
diff --git a/fml/lib/Mail/Bounce/Language/Japanese.pm b/fml/lib/Mail/Bounce/Language/Japanese.pm
index fb3c0c0a..c0839a63 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 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003,2004 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.8 2003/08/06 11:20:06 fukachan Exp $
+# $FML: Japanese.pm,v 1.9 2003/08/13 13:43:46 fukachan Exp $
 #
 
 #
@@ -79,7 +79,7 @@ See C<Mail::Bounce> for more details.
 =cut
 
 
-# Descriptions: trap Japanese specific error address
+# Descriptions: trap Japanese specific error address.
 #    Arguments: OBJ($self) HASH_REF($args)
 # Side Effects: update $args->{result}
 # Return Value: none
@@ -91,6 +91,7 @@ sub _japanese_address_match
     my $rbuf   = $args->{ buf };
     my $buf    = $$rbuf;
 
+    # XXX-TODO: use Mail::Message::Encode.
     use Jcode;
     &Jcode::convert(\$buf, 'euc');
 
@@ -132,7 +133,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003,2004 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/SimpleMatch.pm b/fml/lib/Mail/Bounce/SimpleMatch.pm
index 9b189c89..f5e16e2c 100644
--- a/fml/lib/Mail/Bounce/SimpleMatch.pm
+++ b/fml/lib/Mail/Bounce/SimpleMatch.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003,2004 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: SimpleMatch.pm,v 1.38 2003/04/29 03:11:01 fukachan Exp $
+# $FML: SimpleMatch.pm,v 1.39 2003/05/04 07:57:13 fukachan Exp $
 #
 
 
@@ -179,7 +179,7 @@ my $reason_trap_regexp = {
 };
 
 
-# Descriptions: analyze irregular pattern
+# Descriptions: analyze irregular pattern.
 #    Arguments: OBJ($self) OBJ($msg) HASH_REF($result)
 # Side Effects: update $result
 # Return Value: none
@@ -331,7 +331,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003,2004 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.pm b/fml/lib/Mail/Delivery.pm
index f38824a7..3458c3a9 100644
--- a/fml/lib/Mail/Delivery.pm
+++ b/fml/lib/Mail/Delivery.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2000,2001,2002,2003 Ken'ichi Fukamachi
+#  Copyright (C) 2000,2001,2002,2003,2004 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: Delivery.pm,v 1.9 2003/02/01 13:47:35 fukachan Exp $
+# $FML: Delivery.pm,v 1.10 2003/02/11 09:48:18 fukachan Exp $
 #
 
 package Mail::Delivery;
@@ -92,7 +92,7 @@ constructor. The request is forwarded to SUPER class.
 #               load module suitable for specified protocol and
 #               return object such as Mail::Delivery::ESMTP.
 #    Arguments: OBJ($self) HASH_REF($args)
-# Side Effects: load module
+# Side Effects: load module, croak() if unknown protocol.
 # Return Value: OBJ
 sub new
 {
@@ -139,7 +139,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2000,2001,2002,2003 Ken'ichi Fukamachi
+Copyright (C) 2000,2001,2002,2003,2004 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/ErrorStatus.pm b/fml/lib/Mail/Delivery/ErrorStatus.pm
index 235791ad..669d2d42 100644
--- a/fml/lib/Mail/Delivery/ErrorStatus.pm
+++ b/fml/lib/Mail/Delivery/ErrorStatus.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003,2004 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: ErrorStatus.pm,v 1.6 2003/08/23 04:35:45 fukachan Exp $
+# $FML: ErrorStatus.pm,v 1.7 2003/08/23 15:33:17 fukachan Exp $
 #
 
 package Mail::Delivery::ErrorStatus;
@@ -58,7 +58,7 @@ return $message which is saved by C<error_set($msg)>.
 =cut
 
 
-# Descriptions: set the error message
+# Descriptions: set the error message.
 #    Arguments: OBJ($self) STR($mesg)
 # Side Effects: update OBJ
 # Return Value: STR
@@ -69,7 +69,7 @@ sub error_set
 }
 
 
-# Descriptions: get the error message
+# Descriptions: get the error message.
 #    Arguments: OBJ($self)
 # Side Effects: none
 # Return Value: STR
@@ -80,7 +80,7 @@ sub error
 }
 
 
-# Descriptions: get the error message
+# Descriptions: get the error message.
 #    Arguments: OBJ($self)
 # Side Effects: none
 # Return Value: STR
@@ -91,7 +91,7 @@ sub errstr
 }
 
 
-# Descriptions: clear the error message
+# Descriptions: clear the error message.
 #    Arguments: OBJ($self)
 # Side Effects: none
 # Return Value: STR
@@ -115,7 +115,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003,2004 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.