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