[Mew-Win32 02577] Re: iso-2022-jp-3 (was Re: [MD:1776] set-selective-display)

[Hideyuki SHIRAI ( 白井秀行 )]

白井＠また、(was ...) とかつけてみる。:-)

## mew-win32 ML にしました。

From: Kyotaro HORIGUCHI <horiguchi.kyotaro at example.com> さん曰く
Subject: Re: iso-2022-jp-3 (Re: [MD:1776] set-selective-display)
Message-ID: <20000421.150907.46108611.horiguchi.kyotaro at example.com>
Date: Fri, 21 Apr 2000 15:09:07 +0900 (JST)

堀口> > ascii と jix0208 だけのメールも jp-3 になっちゃう。
堀口> > すぐに設定を外しましょう。
堀口> 
堀口>  です. 自分で書いたメッセージ読めないんで気づきました.
堀口>  速攻でデフォルトに戻しました^^;
堀口> 
堀口> > やるなら、mew-cs-database から "iso-2022-jp-3" を delete して、
堀口> > 最後に append。
堀口> 
堀口>  のようですね.

こんなのはどうでしょう？
あまり深く考えていないので、なんかあったらごめんなさい。(_ _)

(add-hook
 'mew-init-hook
 '(lambda ()
    (if (mew-coding-system-p 'iso-2022-jp-3)
	(defadvice mew-cs-encode-region (before select-jp-3 activate)
	  (if (not (eq cs 'iso-2022-jp-3))
	      ()
	    (ding)
	    (message "[select JP-3] 0: iso-2022-jp-3, 1: strict(default), 2: -compatible")
	    (let ((c (read-char)))
	      (cond
	       ((= c ?0) (setq cs 'iso-2022-jp-3))
	       ((= c ?2) (setq cs 'iso-2022-jp-3-compatible))
	       (t (setq cs 'iso-2022-jp-3-strict))))
	    (message "select %s" cs) (sit-for 1)))
      )))

single part なメールの body や plain/text な part に効くと思うの
ですが。。。

# encode-string はやめた。

-- 
白井秀行 (mailto:shirai at example.com)