水野です。

Perl5.8.7のEncodeでMIME-Headerをデコードしているのですが,
一部に

    =?x-user-defined?Q?=A0?=

などとなっている記事があり, デコードできずにエラーになります。

% /usr/local/bin/perl -e 'use Encode; $a="=?x-user-defined?Q?=A0?="; decode("MIME-Header", $a, Encode::HTMLCREF);'
Unknown encoding "x-user-defined" at /usr/local/lib/perl5/5.8.7/mach/Encode.pm line 166

エンコーディング名が不明なら不明でそのまま素通ししてくれれば良いのですが,
必ずエラーになるため他の記事の処理も含めて中断されてしまい困っています。
何か良い手はないでしょうか?


-- 
水野夢絵@元秋田 <mwe@ccsf.homeunix.org>
http://ccsf.homeunix.org/
GnuPG Key ID = ECC8A735
GnuPG Key fingerprint = 9BE6 B9E9 55A5 A499 CD51  946E 9BDC 7870 ECC8 A735