regen document

4 files changed, 1 insertions, 114 deletions

diff --git a/fml/lib/Mail/Bounce/.cvsignore b/fml/lib/Mail/Bounce/.cvsignore
index 0db0aad4..b643ba41 100644
--- a/fml/lib/Mail/Bounce/.cvsignore
+++ b/fml/lib/Mail/Bounce/.cvsignore
@@ -1,2 +1 @@
 @@doc
-@@doc
diff --git a/fml/lib/Mail/Bounce/00_README.ja.txt b/fml/lib/Mail/Bounce/00_README.ja.txt
index 622b3e3a..42623015 100644
--- a/fml/lib/Mail/Bounce/00_README.ja.txt
+++ b/fml/lib/Mail/Bounce/00_README.ja.txt
@@ -1,7 +1,7 @@
 		エラーメッセージのコレクション
 
 入力は
-	Mailinglist::Messages オブジェクトの形で
+	Mail::Message オブジェクトの形で
 
 
 出力は
diff --git a/fml/lib/Mail/Bounce/Status.pm b/fml/lib/Mail/Bounce/Status.pm
deleted file mode 100644
index 6f8398ce..00000000
--- a/fml/lib/Mail/Bounce/Status.pm
+++ /dev/null
@@ -1,105 +0,0 @@
-#-*- perl -*-
-#
-#  Copyright (C) 2001 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. 
-#
-# $Id$
-# $FML: Status.pm,v 1.3 2001/04/03 09:45:39 fukachan Exp $
-#
-
-package ErrorStatus;
-
-use strict;
-use vars qw(@ISA @EXPORT @EXPORT_OK);
-use Carp;
-
-require Exporter;
-@ISA       = qw(Exporter);
-@EXPORT_OK = qw(error_set error error_clear);
-
-=head1 NAME
-
-ErrorStatus - error handling component
-
-=head1 SYNOPSIS
-
-Use this module in your C<Something> class module like this:
-
-   package Something;
-   use ErrorStatus qw(error_set error error_clear);
-
-   sub xxx
-   {
-      if something errors ...
-      $self->error_set( why this error occurs ... );
-   }
-
-You use C<Something> module like this.
-
-   use Something;
-   $obj = new Something;
-   $obj->xxx();
-   unless ($obj->error) { $obj->do_somting( ...); };
-
-=head1 DESCRIPTION
-
-simple utility functions to manipulate error messages.
-
-=head1 METHODS
-
-=head2 C<error_set($message)>
-
-save $message as an error message.
-
-=head2 C<error()>
-
-return $message which is saved by C<error_set($msg)>.
-
-=cut
-
-
-sub error_set
-{
-    my ($self, $mesg) = @_;
-    $self->{'_error_reason'} = $mesg;
-}
-
-
-sub error
-{
-    my ($self, $args) = @_;
-    return $self->{'_error_reason'};
-}
-
-
-sub error_clear
-{
-    my ($self, $args) = @_;
-    my $msg = $self->{'_error_reason'};
-    undef $self->{'_error_reason'} if defined $self->{'_error_reason'};
-    undef $self->{'_error_action'} if defined $self->{'_error_action'};
-    return $msg;
-}
-
-
-=head1 AUTHOR
-
-Ken'ichi Fukamachi
-
-=head1 COPYRIGHT
-
-Copyright (C) 2001 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. 
-
-=head1 HISTORY
-
-ErrorStatus appeared in fml5 mailing list driver package.
-See C<http://www.fml.org/> for more details.
-
-=cut
-
-
-1;
diff --git a/fml/lib/Mail/Bounce/index.ja.html b/fml/lib/Mail/Bounce/index.ja.html
index 75d0c80c..f52fa5a8 100644
--- a/fml/lib/Mail/Bounce/index.ja.html
+++ b/fml/lib/Mail/Bounce/index.ja.html
@@ -22,13 +22,6 @@ Mail/Bounce::* classes
 <TD>
 <A HREF="@@doc/ErrorStatus.txt">[manual]</A>
 <TD>
-<TR>
-<TD>
- Status.pm <TD>
-<A HREF="Status.pm">[source]</A>
-<TD>
-<A HREF="@@doc/Status.txt">[manual]</A>
-<TD>
 </TABLE>
 </BODY>
 </HTML>