Wanderlust その7

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

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 "￡"))
...以下繰り返し

145(1): 2013/08/30(金) NY:AN:NY.AN AAS
>>144

(translate-region (point-min) (point-max)
'japanese-ucs-cp932-to-jis-map)

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

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

ぬこの手ぬこTOP 0.011s