[mew-dist 19809] Re: mew-cs-m17n

[Tatsuya Kinoshita]

In message [mew-dist 19808], on Mon, 10 Dec 2001,
Kazu Yamamoto <kazu at example.com> wrote:

> 今日コードを見直していて思ったのですが、coding-system-for-read を直接
> いじるのは、Mew では反則です。
> 
> mew-frwlet を使って、書直して頂けませんか？

これでどうでしょうか。cvsへのパッチです。

-- 
木下達也
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.  Copyright is disclaimed.

diff -cr mew.orig/mew-draft.el mew/mew-draft.el
*** mew.orig/mew-draft.el	Thu Dec  6 20:47:09 2001
--- mew/mew-draft.el	Mon Dec 10 17:00:46 2001
***************
*** 243,249 ****
  	 (special-display-regexps nil)
  	 (same-window-buffer-names nil)
  	 (same-window-regexps nil)
- 	 (coding-system-for-read mew-cs-m17n)
  	 (draftname (mew-path-to-folder draft-path)))
      (when (get-buffer draftname)
        (save-excursion
--- 243,248 ----
***************
*** 258,264 ****
        (setq switch-func (function switch-to-buffer)))
       ((eq switch-func t)
        (setq switch-func (function switch-to-buffer-other-window))))
!     (funcall switch-func (find-file-noselect draft-path))
      ;; draft buffer
      (mew-set-buffer-cs mew-cs-m17n)
      ;; copy config, first
--- 257,265 ----
        (setq switch-func (function switch-to-buffer)))
       ((eq switch-func t)
        (setq switch-func (function switch-to-buffer-other-window))))
!     (mew-frwlet
!      mew-cs-m17n mew-cs-dummy
!      (funcall switch-func (find-file-noselect draft-path)))
      ;; draft buffer
      (mew-set-buffer-cs mew-cs-m17n)
      ;; copy config, first
diff -cr mew.orig/mew-summary.el mew/mew-summary.el
*** mew.orig/mew-summary.el	Thu Dec  6 20:47:10 2001
--- mew/mew-summary.el	Mon Dec 10 17:00:37 2001
***************
*** 1122,1130 ****
  	  (file (mew-expand-folder fld msg)))
       (when (mew-sinfo-get-disp-msg)
         (mew-summary-toggle-disp-msg))
!      (if arg
! 	 (find-file file)
!        (view-file file)))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
--- 1122,1132 ----
  	  (file (mew-expand-folder fld msg)))
       (when (mew-sinfo-get-disp-msg)
         (mew-summary-toggle-disp-msg))
!      (mew-frwlet
!       (if (mew-folder-draftp fld) mew-cs-m17n mew-cs-autoconv) mew-cs-dummy
!       (if arg
! 	  (find-file file)
! 	(view-file file))))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;