diff options
| author | fukachan <fukachan> | 2004-01-01 23:52:07 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-01-01 23:52:07 +0000 |
| commit | 39df5269fb3408ca775b72142a2dbc3a7b7dc87c (patch) | |
| tree | 871a3a78940a3653d40cf3cefbc7dc83c656aa15 /fml/lib/FML/Header | |
| parent | d48df2ad0fcce549bdbdc0891e14ea9c57d9d667 (diff) | |
| download | fml8-39df5269fb3408ca775b72142a2dbc3a7b7dc87c.tar.gz fml8-39df5269fb3408ca775b72142a2dbc3a7b7dc87c.tar.bz2 fml8-39df5269fb3408ca775b72142a2dbc3a7b7dc87c.zip | |
remove $args.
It is a top level parameter FML::Process::Switch provides. Almost
functions should access the content via utility methods provided by
FML::Process::Utils.
Diffstat (limited to 'fml/lib/FML/Header')
| -rw-r--r-- | fml/lib/FML/Header/MessageID.pm | 6 | ||||
| -rw-r--r-- | fml/lib/FML/Header/Subject.pm | 8 |
2 files changed, 7 insertions, 7 deletions
diff --git a/fml/lib/FML/Header/MessageID.pm b/fml/lib/FML/Header/MessageID.pm index 379e921c..ddd6fd36 100644 --- a/fml/lib/FML/Header/MessageID.pm +++ b/fml/lib/FML/Header/MessageID.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: MessageID.pm,v 1.16 2003/11/11 10:26:55 tmu Exp $ +# $FML: MessageID.pm,v 1.17 2003/12/30 03:52:07 fukachan Exp $ # package FML::Header::MessageID; @@ -163,12 +163,12 @@ generate and return a new message-id. # Descriptions: generate new message-id used in reply message -# Arguments: OBJ($self) OBJ($config) HASH_REF($args) +# Arguments: OBJ($self) OBJ($config) # Side Effects: counter increment # Return Value: STR sub gen_id { - my ($self, $config, $args) = @_; + my ($self, $config) = @_; # XXX-TODO: if $config->{ address_for_post } undefined ? $Counter++; diff --git a/fml/lib/FML/Header/Subject.pm b/fml/lib/FML/Header/Subject.pm index 584fe9ec..a9bacb30 100644 --- a/fml/lib/FML/Header/Subject.pm +++ b/fml/lib/FML/Header/Subject.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: Subject.pm,v 1.39 2003/07/21 11:25:37 fukachan Exp $ +# $FML: Subject.pm,v 1.40 2003/08/23 04:35:36 fukachan Exp $ # package FML::Header::Subject; @@ -58,12 +58,12 @@ replace the subject with the newer content e.g. including the ML tag. # Descriptions: add or rewrite the subject tag -# Arguments: OBJ($self) OBJ($header) OBJ($config) HASH_REF($args) +# Arguments: OBJ($self) OBJ($header) OBJ($config) HASH_REF($rw_args) # Side Effects: the header subject is rewritten # Return Value: none sub rewrite_article_subject_tag { - my ($self, $header, $config, $args) = @_; + my ($self, $header, $config, $rw_args) = @_; my ($in_code, $out_code); # XXX-TODO: need $article_subject_tag expaned already e.g. "\Lmlname\E" @@ -88,7 +88,7 @@ sub rewrite_article_subject_tag my $obj = new Mail::Message::Encode; # add(prepend) the rewrited tag with mime encoding. - $tag = sprintf($tag, $args->{ id }); + $tag = sprintf($tag, $rw_args->{ id }); my $new_subject = $tag." ".$subject; $new_subject = $obj->encode_mime_string($new_subject, 'base64', $in_code); $header->replace('Subject', $new_subject); |