clean up, nuke obsolete functions

2 files changed, 29 insertions, 41 deletions

diff --git a/fml/lib/FML/Credential.pm b/fml/lib/FML/Credential.pm
index 74a6bf99..9499c3da 100644
--- a/fml/lib/FML/Credential.pm
+++ b/fml/lib/FML/Credential.pm
@@ -15,7 +15,7 @@ use vars qw(%Credential @ISA @EXPORT @EXPORT_OK);
 use Carp;
 
 require Exporter;
-@ISA       = qw(Exporter);
+@ISA = qw(Exporter);
 
 
 sub new
diff --git a/fml/lib/FML/Header.pm b/fml/lib/FML/Header.pm
index 5d8ca73b..07c6f538 100644
--- a/fml/lib/FML/Header.pm
+++ b/fml/lib/FML/Header.pm
@@ -16,35 +16,15 @@ FML::Header - header manipulators
 
 =head1 SYNOPSIS
 
-    $header = use FML::Header $r_header;
-    $header->rewrite;
-
-(... not yet mature  ...)
+    $header = use FML::Header \@header;
+    $header->add('X-ML-Info', "mailing list name");
     
-
 =head1 DESCRIPTION
 
-=head1 METHOD
-
-=item rewrite
-
-=item check
-
-
-=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. 
+FML::Header is an adapter for Mail::Address class.
+That is, Mail::Address is the base class. 
 
-=head1 HISTORY
-
-FML::Header.pm appeared in fml5.
+=head1 METHOD
 
 =cut
 
@@ -64,8 +44,10 @@ sub new
     $self->SUPER::new($args);
 }
 
+
 sub DESTROY {}
 
+
 sub AUTOLOAD
 {
     my ($self, $args) = @_;
@@ -73,21 +55,6 @@ sub AUTOLOAD
 }
 
 
-sub rewrite
-{
-    my ($self) = @_;
-}
-
-
-sub check
-{
-    my ($self) = @_;
-
-    print "From: ",       $self->get('from');
-    print "Message-Id: ", $self->get('message-id');
-}
-
-
 sub add_fml_ml_name
 {
     my ($header, $config, $args) = @_;
@@ -136,4 +103,25 @@ sub add_x_sequence
 }
 
 
+=head1 SEE ALSO
+
+L<Mail::Address>
+
+=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
+
+FML::Header.pm appeared in fml5.
+
+=cut
+
 1;