[Mew-dist 04597] Re: emacs-20.2.92 & mew-1.93b30

[藤原誠 / Makoto Fujiwara]

                                     Sat May  9 00:27:40 1998
                                             千葉市中央区長洲
                                                     藤原  誠
とてもいい加減に遊ぶという立場でのメールですから、
なるべく無視して下さい。:-)

cp mew-mule3.el mew-emacs-20.3.el
してから次の修正をすると、とりあえず動きます。
これでいいということでないのはもちろんです。
僕はまだ 1.93b25 です

--- /usr/local/share/emacs/site-lisp/mew/mew-env.el	Fri Mar 13 23:17:45 1998
+++ ./mew-env.el	Sat May  9 00:04:42 1998
@@ -38,7 +38,9 @@
     (require 'mew-mule0)
     (if (= (string-to-int mule-version) 3)
       (progn
-        (require 'mew-mule3)
+	(if (string-match "^20.2.9" emacs-version)
+	    ( require 'mew-emacs-20.3)
+        (require 'mew-mule3))
         (setq mew-mule-version 3)
       )
       (require 'mew-mule2)
--- /usr/local/share/emacs/site-lisp/mew/mew-mule3.el	Fri Mar 13 23:17:57 1998
+++ mew-emacs-20.3.el	Sat May  9 00:22:35 1998
@@ -25,7 +25,7 @@
 (defvar mew-cs-mime-trans   'iso-2022-7bit-ss2)
 (defvar mew-cs-rfc822-trans 'iso-2022-7bit-ss2)
 (defvar mew-cs-draft        'iso-2022-7bit-ss2)
-(defvar mew-cs-scan         'ctext)
+(defvar mew-cs-scan         'iso-2022-7bit-ss2)
 (defvar mew-cs-infile       'undecided) ;; guess in +draft
 (defvar mew-cs-outfile      'iso-2022-7bit-ss2)
 (defvar mew-cs-virtual      'iso-2022-7bit-ss2-unix) ;; ^M as it is
@@ -181,7 +181,12 @@
 
 ;; to internal
 (defun mew-cs-decode-region (beg end cs)
-  (if cs (decode-coding-region beg end cs))
+  (if cs 
+      (progn
+	(set-buffer-multibyte t)
+	(decode-coding-region beg end cs)
+	)
+    )
   )
 
 ;; to extenal
@@ -233,7 +238,7 @@
      , at example.com)
   )
 
-(provide 'mew-mule3)
+(provide 'mew-emacs-20.3)
 
 ;;; Copyright Notice:
 


---
(藤原)