From 22d2072d8b937d0a0c13d842b5ea5c50fb13bd4d Mon Sep 17 00:00:00 2001 From: Ken'ichi Fukamachi Date: Sat, 8 Sep 2018 11:29:34 +0900 Subject: subject handling is changed to Mail::Message::Subject->mime_header_decode() and as_external_form() style. --- fml/lib/Mail/Message/Outline.pm | 19 ++++++++----------- 1 file changed, 8 insertions(+), 11 deletions(-) diff --git a/fml/lib/Mail/Message/Outline.pm b/fml/lib/Mail/Message/Outline.pm index 7b1beebf..43da9152 100644 --- a/fml/lib/Mail/Message/Outline.pm +++ b/fml/lib/Mail/Message/Outline.pm @@ -39,19 +39,16 @@ sub outline # 1. prepend subject. if ($is_hdr eq 'yes' && defined $header) { - use Mail::Message::String; my $subject = $header->get('subject') || ''; - if ($subject =~ /=\?/o) { - my $string = new Mail::Message::String $subject; - $string->mime_decode(); - $string->charcode_convert_to_internal_code(); - $result .= $string->as_str(); - } - else { - $result .= $subject; - } + use Mail::Message::Subject; + my $subj = new Mail::Message::Subject $subject; + $subj->mime_header_decode(); + $result .= $subj->as_external_form(); } - + + # XXX-TODO [BUG] we cannot handle the encoded phrase. is it correct? + # XXX-TODO 1. decode each paragraph by checking each mime part header + # XXX-TODO 2. run _is_useful_for_summary() for each paragraph # 2. summarize message to a few lines. if ($is_msg && defined $msg) { my $prgbuf = ''; -- cgit v1.2.1