[Mew-dist 03568] Re: b11

[Kazu Yamamoto ( 山本和彦 )]

From: TSUMURA Tomoaki (津邑公暁) <tsumura at example.com>
Subject: [Mew-dist 03566] Re: b11
Date: Thu, 29 Jan 1998 22:33:38 +0900

> 変換はされるようになりましたが、半角カナ 以外に ASCII文字 しか
> 含まないような本文である場合、うちの環境では charset が us-ascii に
> なってしまいます。

こんなものでしょう。

--かず＠I'm not cutting my job. I'm just escaping...

Index: mew-mule2.el
===================================================================
RCS file: /usr/local/cvsroot/mew/mew-mule2.el,v
retrieving revision 1.5
diff -c -r1.5 mew-mule2.el
*** mew-mule2.el	1998/01/28 15:44:51	1.5
--- mew-mule2.el	1998/01/29 13:46:46
***************
*** 118,123 ****
--- 118,125 ----
  	  (ding)
  	  (sit-for 1)
  	  (setq tcsl (delete mew-lc-kana tcsl))
+ 	  (if (not (member mew-lc-jp tcsl))
+ 	      (setq tcsl (cons mew-lc-jp tcsl)))
  	  (setq N (length tcsl))))
      (while alst
        (setq a (car alst))
Index: mew-mule3.el
===================================================================
RCS file: /usr/local/cvsroot/mew/mew-mule3.el,v
retrieving revision 1.5
diff -c -r1.5 mew-mule3.el
*** mew-mule3.el	1998/01/28 15:44:53	1.5
--- mew-mule3.el	1998/01/29 13:47:48
***************
*** 129,134 ****
--- 129,136 ----
  	  (ding)
  	  (sit-for 1)
  	  (setq tcsl (delete mew-lc-kana tcsl))
+ 	  (if (not (member mew-lc-jp tcsl))
+ 	      (setq tcsl (cons mew-lc-jp tcsl)))
  	  (setq N (length tcsl))))
      (while alst
        (setq a (car alst))