[Mew-dist 130] Re: impost 0.93 (Re: encoded-word and space)

[Hideki Sakurada]

私>>
: 
: From: Noritoshi Demizu (出水法俊) <demizu at example.com>
: : ところが impost 0.93 を使って from や subject に日本語の入ったメールを
: : 出そうとすると、出そうとしたメールのヘッダ部が、届いたメールの本体に
: : 入ってしまうという現象に遭遇しました。from や subject に ascii 文字だ
: : けしか書かないで出した場合には、そのような現象は発生しません。
: : 
: : ちなみに私は BSD/OS 2.1 についてきた perl 4.0.36 を使っています。
: 
: 私のところの perl 4.019 + 1.3(EUC) でも同様の問題
: が生じます。perl 5.000 では問題が生じないので、バー
: ジョン依存なのかもしれません。

古い perl だと $& を保護してくれないみたいです。
以下のような変更でどうでしょうか？

--sakurada
-------------- next part --------------
*** impost-0.93	Sat Nov 23 17:46:59 1996
--- impost-0.93+	Sat Nov 23 22:22:01 1996
***************
*** 2816,2822 ****
  		}
  		if ($c eq "jis") {
  			$Header[$i] =~ /^([\w-]+:)/;
! 			$Header[$i] = $&.&line_iso2022jp_mimefy($');
  		}
  		print STDERR "converted into: $Header[$i]\n"
  			if ($Debug > 4);
--- 2816,2823 ----
  		}
  		if ($c eq "jis") {
  			$Header[$i] =~ /^([\w-]+:)/;
! 			local($dummy)=$&;
! 			$Header[$i] = $dummy.&line_iso2022jp_mimefy($');
  		}
  		print STDERR "converted into: $Header[$i]\n"
  			if ($Debug > 4);