diff options
| author | fukachan <fukachan> | 2001-01-22 15:24:41 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-01-22 15:24:41 +0000 |
| commit | 360297d7684580d87e6045e65ba952964e36e691 (patch) | |
| tree | 8efd7d064ac3783a459ff2a22c6cd1ba7c00fdab /fml/lib/FML/Header.pm | |
| parent | e69c66d62b34d52847bdde8657cc2dbc9962ce5f (diff) | |
| download | fml8-360297d7684580d87e6045e65ba952964e36e691.tar.gz fml8-360297d7684580d87e6045e65ba952964e36e691.tar.bz2 fml8-360297d7684580d87e6045e65ba952964e36e691.zip | |
define rewrite_subject()
Diffstat (limited to 'fml/lib/FML/Header.pm')
| -rw-r--r-- | fml/lib/FML/Header.pm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/fml/lib/FML/Header.pm b/fml/lib/FML/Header.pm index 64486f6d..fbbdcc6d 100644 --- a/fml/lib/FML/Header.pm +++ b/fml/lib/FML/Header.pm @@ -41,6 +41,8 @@ require Exporter; sub new { my ($self, $args) = @_; + + # an adapter for Mail::Header::new() $self->SUPER::new($args); } @@ -106,6 +108,16 @@ sub add_x_sequence } + +sub rewrite_subject +{ + my ($header, $config, $args) = @_; + + use FML::Header::Subject; + my $subject = new FML::Header::Subject; +} + + =head1 SEE ALSO L<Mail::Address> |