[mew-dist 18594] Re: Mew 2.0 での印刷

[Kazu Yamamoto ( 山本和彦 )]

From: HOSONO Hidetomo <hosono-h at example.com>
Subject: [mew-dist 18543] Re: Mew 2.0 での印刷

> そういえば、私も
> ","を押してから何かメッセージを印刷しようとすると
> かな漢字が全て~となってしまう現象を確認しています。

insert-file-contents が buffer-file-coding-system を変更してしまうせい
でした。以下のパッチで "," を押した後も、coding-system は変らなくなる
と思います。

--かず

Index: mew-func.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-func.el,v
retrieving revision 1.15
diff -c -r1.15 mew-func.el
*** mew-func.el	2001/08/08 09:31:35	1.15
--- mew-func.el	2001/08/29 07:15:58
***************
*** 330,338 ****
       ((or (mew-folder-newsp fld) (mew-folder-imapp fld))
        (error "%s isn't supported yet" fld))
       ((file-readable-p file)
!       (mew-frwlet
!        rcs mew-cs-dummy
!        (insert-file-contents file nil 0 size))
        ;; return physical size
        (cons (mew-file-get-time file) (mew-file-get-size file)))
       (t
--- 330,342 ----
       ((or (mew-folder-newsp fld) (mew-folder-imapp fld))
        (error "%s isn't supported yet" fld))
       ((file-readable-p file)
!       (let ((old-cs (and (boundp 'buffer-file-coding-system)
! 			 buffer-file-coding-system)))
! 	(mew-frwlet
! 	 rcs mew-cs-dummy
! 	 (insert-file-contents file nil 0 size))
! 	(if (boundp 'buffer-file-coding-system)
! 	    (setq buffer-file-coding-system old-cs)))
        ;; return physical size
        (cons (mew-file-get-time file) (mew-file-get-size file)))
       (t