Wanderlust その7

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

140(4): 2013/08/29(木) NY:AN:NY.AN AAS
○で囲んだ数字など、Windows の機種依存文字を含んだメールを
UTF8 に変換して返信するために、下記の設定を .wl に加えています。

(require 'cp5022x)
(add-to-list 'mime-charset-coding-system-alist '(iso-2022-jp . cp50220))
(setq wl-mime-charset 'iso-2022-jp)

これはこれで大変便利なのですが、この状態で、「〜」の文字を含んだ
ISO-2022-JP なメールに返信すると、自動的に UTF-8 になってしまい、
理由がわからず困っています。解決法がわかればお知らせください。

141(1): 2013/08/29(木) NY:AN:NY.AN AAS
文字化けするかも。

>>140

cp50220デコーダを使うことで、ISO-2022-JP で書かれたメールに
含まれる "〜" (U+301C, WAVE DASH) は "〜" (U+FF5E, FULLWIDTH TILDE)
としてデコードされるが、FULLWIDTH TILDEは　ISO-2022-JPでは
エンコードできないため。

対策は、

1. リプライ用のドラフトを作成する前にcp50220デコーダを使用しないよう
設定を変更する。

(setq mime-charset-coding-system-alist
(delq (assq 'iso-2022-jp mime-charset-coding-system-alist)
mime-charset-coding-system-alist))

2. どこかで FULLWIDTH TILDE を WAVE DASH に置換する。

3. cp50220でエンコードしてISO-2022-JPと詐称する。
自分が何をやっているか分からない人にはおすすめしない。

142: 140 2013/08/29(木) NY:AN:NY.AN AAS
>>141
なるほど、詳しくありがとうございます。
対策 1. だとそもそも丸数字が扱えないので、2. をやってみました。
あまり美しくないですが、hook で置換したところ望みの動作になりました。多謝！

(add-hook 'wl-draft-config-exec-hook
(lambda ()
(while (search-forward "〜" nil t)
(replace-match "〜"))))

144(1): 140 2013/08/30(金) NY:AN:NY.AN AAS
>>143
「￠￡−￢?〜‖」などで発生するようです。これを考慮して、以下のように
書いてみたのですが、なんかもっとエレガントにならないものか。

(add-hook 'wl-draft-config-exec-hook
(lambda ()
(save-excursion
(goto-char (point-min))
(while (search-forward "￠" nil t)
(replace-match "￠"))
(goto-char (point-min))
(while (search-forward "￡" nil t)
(replace-match "￡"))
...以下繰り返し

146: 140 2013/08/30(金) NY:AN:NY.AN AAS
>>145
目から鱗でした。ありがとうございます！

上下前次1-新書関写板覧索設栞歴

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ

ぬこの手ぬこTOP 0.022s