2009年11月 4日

[mew-dist 29051] Re:発信 mail の文字コード指定に付いての質問

> 矢吹です、 直前のメイルに対する 追加です。
>
> おっしゃるとおりの動作を確認しました。
> 英語 + ギリシャ文字 に対して iso-8859-7、 ;; これを書くのを忘れていました
> 英語 + 日本語 + アクセント無しのギリシャ文字 に対して iso-2022-jp、
> 英語 + 日本語 + アクセント付きのギリシャ文字 に対して utf-8。
>
> すばらしい動作に感動です。


すいません。ユーロ記号があるときに、ISO-8859-15 にならないというレポー
トが来たので、またコードを修正しました。ISO-8859-7 にも影響するので、も
う一度と以下のパッチを試して頂けませんか? RC2 に当たります。

--かず

Index: mew-mule3.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-mule3.el,v
retrieving revision 1.55
diff -c -r1.55 mew-mule3.el
*** mew-mule3.el 2 Nov 2009 04:39:09 -0000 1.55
--- mew-mule3.el 3 Nov 2009 12:27:32 -0000
***************
*** 197,215 ****

(if (fboundp 'set-charset-priority)
(defun mew-find-cs-region (beg end)
! (let ((charset-list (charset-priority-list)))
! (set-charset-priority 'japanese-jisx0208 'korean-ksc5601
! 'latin-iso8859-1 'latin-iso8859-2
! 'latin-iso8859-3 'latin-iso8859-4
! 'cyrillic-iso8859-5 'greek-iso8859-7
! 'hebrew-iso8859-8 'latin-iso8859-9
! 'latin-iso8859-14 'latin-iso8859-15
! 'thai-tis620
! 'latin-jisx0201 'japanese-jisx0208-1978
! 'japanese-jisx0213-1 'japanese-jisx0213-2
! 'unicode)
! (prog1 (find-charset-region beg end)
! (apply 'set-charset-priority charset-list))))
(defalias 'mew-find-cs-region 'find-charset-region))

;; to internal
--- 197,223 ----

(if (fboundp 'set-charset-priority)
(defun mew-find-cs-region (beg end)
! (let ((charset-list (charset-priority-list))
! ret)
! (set-charset-priority 'latin-iso8859-15 'cyrillic-iso8859-5 'greek-iso8859-7)
! (setq ret (find-charset-region beg end))
! (unless (member ret '((ascii latin-iso8859-15)
! (ascii cyrillic-iso8859-5)
! (ascii greek-iso8859-7)))
! (set-charset-priority 'japanese-jisx0208 'korean-ksc5601
! 'latin-iso8859-1 'latin-iso8859-2
! 'latin-iso8859-3 'latin-iso8859-4
! 'hebrew-iso8859-8 'latin-iso8859-9
! ;; for accent characters
! 'cyrillic-iso8859-5 'greek-iso8859-7
! 'latin-iso8859-14 'latin-iso8859-15
! 'thai-tis620
! 'latin-jisx0201 'japanese-jisx0208-1978
! 'japanese-jisx0213-1 'japanese-jisx0213-2
! 'unicode)
! (setq ret (find-charset-region beg end)))
! (apply 'set-charset-priority charset-list)
! ret))
(defalias 'mew-find-cs-region 'find-charset-region))

;; to internal


投稿者 xml-rpc : 2009年11月 4日 11:12
役に立ちました?:
過去のフィードバック 平均:(0) 総合:(0) 投票回数:(0)
本記事へのTrackback: http://hoop.euqset.org/blog/mt-tb2006.cgi/90056
トラックバック
コメント
コメントする




画像の中に見える文字を入力してください。