[Mew-dist 05254] patch1

[Kazu Yamamoto ( 山本和彦 )]

あああ、mule 2.3 と emacs 20.2.932 では試しましたが、emacs 20.2 と 
xemacs 20.4 では試していませんでした。

emacs 20.2.932 と emacs 20.2 は仕様が違うようです。(;_;)

さらに xemacs では合成文字の処理方法が分りません。そもそも僕の環境では
タイ語が表示できない。(;_;) というわけで、xemacs では逃げています。

--かず

Index: mew-decode.el
===================================================================
RCS file: /usr/local/cvsroot/Mew/mew/mew-decode.el,v
retrieving revision 1.32
diff -c -r1.32 mew-decode.el
*** mew-decode.el	1998/07/01 08:16:08	1.32
--- mew-decode.el	1998/07/01 09:12:12
***************
*** 153,159 ****
    (let* ((beg (point))
  	 (switch mew-prog-mime-decode-switch)
  	 (cs (mew-charset-to-cs charset))
! 	 (post-conv (mew-cs-post-conv cs))
  	 opt file)
      (if (null enc)
  	() ;; just in case
--- 153,159 ----
    (let* ((beg (point))
  	 (switch mew-prog-mime-decode-switch)
  	 (cs (mew-charset-to-cs charset))
! 	 (post-conv (if (not mew-xemacs-p) (mew-cs-post-conv cs)))
  	 opt file)
      (if (null enc)
  	() ;; just in case
Index: mew-mule3.el
===================================================================
RCS file: /usr/local/cvsroot/Mew/mew/mew-mule3.el,v
retrieving revision 1.14
diff -c -r1.14 mew-mule3.el
*** mew-mule3.el	1998/07/01 08:16:11	1.14
--- mew-mule3.el	1998/07/01 09:12:13
***************
*** 205,211 ****
  
  
  (defun mew-cs-post-conv (cs)
!   (let ((post-conv (coding-system-get cs 'post-read-conversion)))
      (if post-conv
  	(cdr (assoc post-conv mew-postconv-to-convregion)))))
  
--- 205,214 ----
  
  
  (defun mew-cs-post-conv (cs)
!   (let (post-conv)
!     (if (fboundp (function coding-system))
! 	(setq post-conv (coding-system-get cs 'post-read-conversion))
!       (setq post-conv (get cs 'post-read-conversion)))
      (if post-conv
  	(cdr (assoc post-conv mew-postconv-to-convregion)))))