diff options
| author | fukachan <fukachan> | 2002-09-02 03:31:43 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-09-02 03:31:43 +0000 |
| commit | 04923a1bfbbb796c6a8541f05f1ca80af3b6c93c (patch) | |
| tree | e302d49d9cc710e6ddcbabbd805567a76d1a3ea2 /fml | |
| parent | 77a10284e86fa6845ecd01f44d67382ff599442d (diff) | |
| download | fml8-04923a1bfbbb796c6a8541f05f1ca80af3b6c93c.tar.gz fml8-04923a1bfbbb796c6a8541f05f1ca80af3b6c93c.tar.bz2 fml8-04923a1bfbbb796c6a8541f05f1ca80af3b6c93c.zip | |
s/article_header/article_message_header/
s/article_body/article_message_body/
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/FML/Process/Distribute.pm | 12 | ||||
| -rw-r--r-- | fml/lib/FML/Process/Utils.pm | 6 |
2 files changed, 9 insertions, 9 deletions
diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm index 184d2f71..df0bae06 100644 --- a/fml/lib/FML/Process/Distribute.pm +++ b/fml/lib/FML/Process/Distribute.pm @@ -3,7 +3,7 @@ # Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Distribute.pm,v 1.92 2002/08/19 12:41:17 fukachan Exp $ +# $FML: Distribute.pm,v 1.93 2002/08/19 14:20:04 fukachan Exp $ # package FML::Process::Distribute; @@ -367,7 +367,7 @@ sub _header_rewrite { my ($curproc, $args) = @_; my $config = $curproc->{ config }; - my $header = $curproc->article_header(); + my $header = $curproc->article_message_header(); my $rules = $config->{ article_header_rewrite_rules }; my $id = $args->{ id }; @@ -394,10 +394,10 @@ sub _header_rewrite sub _deliver_article { my ($curproc, $args) = @_; - my $config = $curproc->{ config }; # FML::Config object - my $message = $curproc->article_message(); # Mail::Message object - my $header = $curproc->article_header(); # FML::Header object - my $body = $curproc->article_body(); # Mail::Message object + my $config = $curproc->{ config }; # FML::Config object + my $message = $curproc->article_message(); # Mail::Message object + my $header = $curproc->article_message_header(); # FML::Header object + my $body = $curproc->article_message_body(); # Mail::Message object unless ( $config->yes( 'use_article_delivery' ) ) { return; diff --git a/fml/lib/FML/Process/Utils.pm b/fml/lib/FML/Process/Utils.pm index 190b9dd1..09ed2313 100644 --- a/fml/lib/FML/Process/Utils.pm +++ b/fml/lib/FML/Process/Utils.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: Utils.pm,v 1.38 2002/08/03 13:13:24 fukachan Exp $ +# $FML: Utils.pm,v 1.39 2002/08/07 03:59:18 fukachan Exp $ # package FML::Process::Utils; @@ -149,7 +149,7 @@ available only in C<libexec/distribute> process. # Arguments: OBJ($curproc) # Side Effects: none # Return Value: OBJ -sub article_header +sub article_message_header { my ($curproc) = @_; @@ -166,7 +166,7 @@ sub article_header # Arguments: OBJ($curproc) # Side Effects: none # Return Value: OBJ -sub article_body +sub article_message_body { my ($curproc) = @_; |