push(@tmp,"Subject: $Tag$_\n");

# 付加タグを無理やり日本語可能にする。
# $_に格納されている文字列の中身を取り出しbase64デコード
	s/=\?(iso-2022-jp|utf-8|utf-7)\?B\?//egimosx;
	s/\?=//egimosx;
	$c_s = decode_base64($_);

# 付加タグをJISコンバートとし、キャリア側のSubjectと合体させる。
	&jcode::convert(\$Tag,'jis');
	$mxsub = $Tag.$c_s;
# 最終的にiso-2022-jpへエンコードしてSubjectとする。
	$s = '=?iso-2022-jp?B?'. encode_base64($mxsub,'') .'?=';
	push(@tmp,"Subject: $s\n");

# 付加タグを無理やり日本語可能にする。
# 付加タグをJISコンバートする。
	&jcode::convert(\$Tag,'jis');
# 付加タグ部分をiso-2022-jp、送信されたsubjectはそのまま付与する。
	$s = '=?iso-2022-jp?B?'. encode_base64($Tag,'') .'?=';
	push(@tmp,"Subject: $s\n $_\n");