diff options
| -rw-r--r-- | fml/lib/Mail/Message/Encode/Perl.pm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/fml/lib/Mail/Message/Encode/Perl.pm b/fml/lib/Mail/Message/Encode/Perl.pm index 6d5e76f2..e37784f6 100644 --- a/fml/lib/Mail/Message/Encode/Perl.pm +++ b/fml/lib/Mail/Message/Encode/Perl.pm @@ -132,6 +132,21 @@ sub mime_header_decode } +# Descriptions: decode mime header format string and return it as +# printable format not the Perl internal one. +# Arguments: OBJ($self) STR($hdr) +# Side Effects: none +# Return Value: STR +sub mime_header_decode_as_octets +{ + my ($self, $hdr) = @_; + + # XXX-TODO hard-coded now anyway. + my $code = "EUC-JP"; + encode($code, decode("MIME-Header", $hdr)); +} + + =head1 CODING STYLE See C<http://www.fml.org/software/FNF/> on fml coding style guide. |