[mew-dist 29394] 半角カナ記号

[村田 隆]

村田です。

半角カナを含むメールをそのまま送信したとき、カナは全角に変換されますが、
記号だけ半角のままになり、その結果、メールが utf-8 で encode されます。
以下の対応が漏れていたのではないかと思います。
-- 
村田 隆 / tmurata at example.com

--- mew-lang-jp.el~	Wed Sep  1 14:37:04 2010
+++ mew-lang-jp.el	Mon Jun 27 15:55:05 2011
@@ -119,6 +119,11 @@
 	 (ent (rassoc str mew-katakana-alist)))
     (if ent (car ent))))
 
+(defun mew-hankaku-kigou-code (ch)
+  (let* ((str (char-to-string ch))
+	 (ent (rassoc str mew-katakana-kigou-alist)))
+    (if ent (car ent))))
+
 (defun mew-zenkaku-katakana-region (beg end)
   (let (ch wk)
     (save-restriction
@@ -156,7 +161,7 @@
 	   ((setq wk (mew-hankaku-code ch))
 	    (delete-char -1)
 	    (insert (make-char mew-lc-jp ?\245 wk)))
-	   ((setq wk (mew-hankaku-code ch))
+	   ((setq wk (mew-hankaku-kigou-code ch))
 	    (delete-char -1)
 	    (insert (make-char mew-lc-jp ?\241 wk)))))))))