(setq skk-kutouten-type 'en)
(setq skk-kuten-touten-alist
'((jp . ("。" . "、"))
(jp2 . ("．" . "、"))
(en . ("．" . "，"))))
(add-hook 'mime-edit-mode-hook
'(lambda ()
(make-local-variable skk-kutouten-type)
(setq skk-kutouten-type 'jp2)))
(add-hook 'mime-edit-exit-hook
'(lambda ()
(setq skk-kutouten-type 'en)))