[Mew-dist 06922] Re: Decode of From Line

[SAKAI Kiyotaka]

>> In article <19981107115704Z.GOTOH at example.com>, Shun-ichi GOTO <gotoh at example.com> writes:

>> あとは Summary モードの方の "漢字名" なども直るようになれば
>> 嬉しいのですが。＜おいおい、調子に乗るな！

> うぅ、これはMew上ではどうしようもないので IMな方々にリクエスト
> しましょう。

このパッチを当てて、

1. mew-decode-quoted が t のときは --mimedecode オプションを付けて
  imls を呼び出すようにする。

2. あるいは、必要な人が ~/.im/Config に
    MimeDecode=on
  の記述を入れる。

のどちらかで対応可能でしょう。
-- 
酒井 清隆 (E-mail: ksakai at example.com)

-------------- next part --------------
Index: imls.in
===================================================================
RCS file: /home/cvsroot/im-103/imls.in,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 imls.in
--- imls.in	1998/11/06 00:20:00	1.1.1.1
+++ imls.in	1998/11/09 06:59:55
@@ -68,6 +68,7 @@
 	"\n\t\t(This option affects both fieldname and pattern.)",
     'delimiter;s;\n\n|\n----\n;' => 'Mail header delimiter',
     'dupchecktarget,D;s;;'    => 'Duplicate Check Target',
+    'mimedecode;s;;' => 'Force decode mime strings',
     'quiet;b;;'   => 'Suppress informational messages.',
     'verbose;b;;' => 'With verbose messages.',
     'debug;d;;'   => "With debug message.",
Index: IM/EncDec.pm
===================================================================
RCS file: /home/cvsroot/im-103/IM/EncDec.pm,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 EncDec.pm
--- EncDec.pm	1998/11/06 00:20:01	1.1.1.1
+++ EncDec.pm	1998/11/09 07:03:48
@@ -157,7 +157,7 @@
 sub mime_decode_string ($) {
     my $in = shift;
     return '' if ($in eq '');
-    if ($in =~ /"/) {
+    if (!$main::opt_mimedecode && $in =~ /"/) {
         if ($in =~ /^([^"]*)("[^"]*")([\0-\255]*)$/) {
             return mime_decode_string($1) . $2 . mime_decode_string($3);
         } else {  # unblanced "