From e80540b71d7c150f048fd0ffa2bbd23340c95c6f Mon Sep 17 00:00:00 2001
From: Ken'ichi Fukamachi <fukachan@fml.org>
Date: Fri, 7 Sep 2018 12:43:00 +0900
Subject: define mime_header_decode_as_octets(). It returns printable form not
 Perl internal one.

---
 fml/lib/Mail/Message/Encode/Perl.pm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'fml/lib/Mail/Message/Encode')

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.
-- 
cgit v1.2.1