diff options
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); |