[Mew-dist 3247] Re: [Q] Why I can't read message with some Subject.

[SAKAI Kiyotaka]

>> In article <19971222171812S.takeuchi at example.com>, Yutaka Takeuchi <takeuchi at example.com> writes:

> ・MAILは社内のOpen Mailのサーバーからfetchmailで取ってきています。
>   旨くデコードされない Subject は Open Mail Client で作成されたものです。

Open Mail が ESC だけを Q encode していたという訳ですね。

>   このMailのHeaderは Q encode されて届いていて、Mewでは読めません。
>   Open Mail で Q encode しているようです。

もしどうしても、このメールを読みたいのであれば、IM の EncDec.pm.in に
以下のパッチを当てて、Mew をロードした後に

  (setq mew-header-decode-regex "=\\?\\([^?]+\\)\\?\\(.\\)\\?\\([^ ]+\\)\\?=")

が実行されるようにすれば、そのメールが文字化けしないようにすることは可
能です。(ちょっと正規表現を変更しただけです。)

ただし、このパッチを当てるとどのような副作用があるか分かりませんので、
at own risk で使って下さい。

===================================================================
RCS file: RCS/EncDec.pm.in,v
retrieving revision 1.2
diff -u -r1.2 EncDec.pm.in
--- EncDec.pm.in	1997/12/22 08:54:24	1.2
+++ EncDec.pm.in	1997/12/22 08:54:52
@@ -165,7 +165,7 @@
     my $in = shift;
     return '' unless $in;
     $in =~ s/\?=\s+=\?/?==?/g;
-    $in =~ s/(=\?([^?]+)\?(.)\?([^?]+)\?=)/
+    $in =~ s/(=\?([^?]+)\?(.)\?([^ ]+)\?=)/
       ($$mime_decode_switch{uc($3)})?&{$$mime_decode_switch{uc($3)}}($4):$1/ge;
 #   while ($in =~ /^(.*)=\?([^?]+)\?(.)\?([^?]+)\?=(.*)$/) {
 #	if ($$mime_decode_switch{uc($3)}) {

-- 
酒井 清隆 (E-mail: ksakai at example.com)