diff options
| author | fukachan <fukachan> | 2005-05-27 03:03:31 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2005-05-27 03:03:31 +0000 |
| commit | e6fc837dba963f236db29e3e38d62f215980d428 (patch) | |
| tree | 33f8f9ab40c5862ddaa9e3711edaa8218026ce8b /fml/lib/Mail/Message/String.pm | |
| parent | 1059e0cd170476595b06d3522d3a7915ae86e3be (diff) | |
| download | fml8-e6fc837dba963f236db29e3e38d62f215980d428.tar.gz fml8-e6fc837dba963f236db29e3e38d62f215980d428.tar.bz2 fml8-e6fc837dba963f236db29e3e38d62f215980d428.zip | |
fix comments (FNF)
Diffstat (limited to 'fml/lib/Mail/Message/String.pm')
| -rw-r--r-- | fml/lib/Mail/Message/String.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/fml/lib/Mail/Message/String.pm b/fml/lib/Mail/Message/String.pm index 9a2dc085..8afc049c 100644 --- a/fml/lib/Mail/Message/String.pm +++ b/fml/lib/Mail/Message/String.pm @@ -1,10 +1,10 @@ #-*- perl -*- # -# Copyright (C) 2004 Ken'ichi Fukamachi +# Copyright (C) 2004,2005 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: String.pm,v 1.8 2004/07/23 13:16:45 fukachan Exp $ +# $FML: String.pm,v 1.9 2004/07/23 15:59:16 fukachan Exp $ # package Mail::Message::String; @@ -158,7 +158,7 @@ sub mime_encode print "\tencode($str, $encode, $out_code, $in_code)\n"; } - # XXX-TODO: we cannot mime-encode not iso-2022-jp string. + # XXX-TODO: we cannot mime-encode non iso-2022-jp string. use Mail::Message::Encode; my $obj = new Mail::Message::Encode; $str = $obj->encode_mime_string($str, $encode, $out_code, $in_code); @@ -264,7 +264,7 @@ In fact, this module return the mime encoded string as iso-2022-jp sub charcode_convert { my ($self, $out_code, $in_code) = @_; - my $str = $self->as_str(); + my $str = $self->as_str(); # speculate internal code we should use for this string. $out_code ||= $self->_speculate_internal_code(); @@ -403,11 +403,11 @@ sub unfold } -=head2 is_citation($data) +=head2 is_citation() $data looks a citation or not. -=head2 is_signature($data) +=head2 is_signature() $data looks a citation or not. @@ -520,7 +520,7 @@ Ken'ichi Fukamachi =head1 COPYRIGHT -Copyright (C) 2004 Ken'ichi Fukamachi +Copyright (C) 2004,2005 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. |
