[mew-dist 23945] Re: thread editing

[Kazu Yamamoto ( 山本和彦 )]

From: SHIBATA Akira <shiba at example.com>
Subject: [mew-dist 23944] thread editing

> 4.0.54の時からだったと記憶していますが，thread editingすると，子
> にした方のメール(Mew-X-Refが挿入されるメール)の文字コードがJISか
> らSJISに変わってしまうようになり，C-cC-lしないとちゃんと見られな
> くなってしまいました．

このパッチで直るでしょうか？

--かず


Index: mew-func.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-func.el,v
retrieving revision 1.133
diff -c -r1.133 mew-func.el
*** mew-func.el	2003/07/24 13:38:14	1.133
--- mew-func.el	2003/07/29 09:40:09
***************
*** 931,939 ****
  (defun mew-insert-file-contents (&rest args)
    "A safe version of insert-file-contents.
  This checks -*-coding:ctext;-*- internally when including a file."
!   (let ((after-insert-file-functions nil)
! 	(auto-image-file-mode nil))
      ;; preventing after-insert-file-set-buffer-file-coding-system
      (apply 'insert-file-contents args)))
  
  (defun mew-find-file-noselect (&rest args)
--- 931,944 ----
  (defun mew-insert-file-contents (&rest args)
    "A safe version of insert-file-contents.
  This checks -*-coding:ctext;-*- internally when including a file."
!   (let ((after-insert-file-functions nil))
      ;; preventing after-insert-file-set-buffer-file-coding-system
+     (apply 'mew-insert-file-contents2 args)))
+ 
+ (defun mew-insert-file-contents2 (&rest args)
+   "Mew version of insert-file-contents.
+ This sets  buffer-file-coding-system."
+   (let ((auto-image-file-mode nil))
      (apply 'insert-file-contents args)))
  
  (defun mew-find-file-noselect (&rest args)
***************
*** 947,953 ****
  (defun mew-find-file-noselect2 (&rest args)
    "A safe version of find-file-noselect.
  This checks -*-coding:ctext;-*- internally when including a file
! and set buffer-file-coding-system."
    (let ((auto-image-file-mode nil)
  	(format-alist nil)
  	(auto-mode-alist nil)
--- 952,958 ----
  (defun mew-find-file-noselect2 (&rest args)
    "A safe version of find-file-noselect.
  This checks -*-coding:ctext;-*- internally when including a file
! and sets buffer-file-coding-system."
    (let ((auto-image-file-mode nil)
  	(format-alist nil)
  	(auto-mode-alist nil)
Index: mew-thread.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-thread.el,v
retrieving revision 1.101
diff -c -r1.101 mew-thread.el
*** mew-thread.el	2003/07/08 07:57:36	1.101
--- mew-thread.el	2003/07/29 09:40:09
***************
*** 973,979 ****
  (defun mew-thread-save-xref (fld msg id)
    (with-temp-buffer
      (let ((file (mew-expand-folder fld msg)))
!       (mew-insert-file-contents file)
        (mew-header-delete-lines (list mew-x-mew-ref:))
        (goto-char (point-min))
        (mew-header-insert mew-x-mew-ref: id)
--- 973,979 ----
  (defun mew-thread-save-xref (fld msg id)
    (with-temp-buffer
      (let ((file (mew-expand-folder fld msg)))
!       (mew-insert-file-contents2 file)
        (mew-header-delete-lines (list mew-x-mew-ref:))
        (goto-char (point-min))
        (mew-header-insert mew-x-mew-ref: id)