FGALDC 15
quoted-printable のデコーダー

　みなさん、こんにちは

ごくまれに、quoted-printable なメールが届きます。
ほとんどはＳＡＰＭなんで無視しています。また、Outlook かなにかのＨＴＭＬ
添付メールのＨＴＭＬ部分も quoted-printable のようですが、こちらはテキス
トパートを読めばいいので、やはりＨＴＭＬ部分は無視しています。

ただ、たとえＳＰＡＭだろうと内容がわからないのは気になります。
ということで、quoted-printable のデコーダーを作ってみました。

= QP.DEF
* M
80 ^\ "quoted-printable Decoder"
	?.
	#O "nul" #m  (s==4)?{'y'}?{#_ #>} #W &s
:A	(cd>=$7f || cd<0)?>Z
	(ct==1)?{
		#W #m #W
		>B
	}
	(cd=='=')?{
		#d
		(ct==1)?{>B}
		&u(cd)
		a=r,
		(a>'F')?>Z
		(a>='A')?{a=a+10-'A',}
		(a>='0')?{a=a-'0',}
		#d
		&u(cd)
		b=r,
		(b>'F')?>Z
		(b>='A')?{b=b+10-'A',}
		(b>='0')?{b=b-'0',}
		a=a*16+b,
		&10
		>B
	}
	a=cd, &10
	
:B
	#d
	(r)??>A

:Z	&d 
	#W #S
	.

10:
	#W &?("%c",a) #W
*

あんまりコードの効率化という事は考えておりません。そもそもが、とりあえず
デコードできればいい、という前提で作られている訳ですから。
デコードした結果は、ほとんどが、漢字コードがシフトＪＩＳではなく、いわゆ
るＪＩＳコードでした。これも、保存するのならＶｚのマクロなりその他のツー
ルなりでシフトＪＩＳに変換するという手もあるのでしょうが、私の場合は、そ
のまま一時ファイルに保存して、miel で閲覧したらすぐに捨ててしまっています。
実際、保存に値するようなメールは１通もありませんでしたし。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　としき