(emh-edit-again): Modify for `enable-multibyte-characters'.

diff --git a/emh-comp.el b/emh-comp.el
index 8cb9498..91bb5da 100644 (file)
--- a/emh-comp.el
+++ b/emh-comp.el
@@ -7,7 +7,7 @@
 ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1996/2/29 (separated from tm-mh-e.el)
 ;;     Renamed: 1997/2/21 from tmh-comp.el
-;; Version: $Id: emh-comp.el,v 0.3 1997-03-18 14:57:53 morioka Exp $
+;; Version: $Id: emh-comp.el,v 0.4 1997-09-25 15:41:51 morioka Exp $
 ;; Keywords: mail composing, MH, MIME, mail
 
 ;; This file is part of emh.
@@ -238,11 +238,14 @@ See also documentation for `\\[mh-send]' function."
                         )
                     name))
                  (t
-                  (as-binary-input-file
-                   (mh-read-draft "clean-up" (mh-msg-filename msg) nil)
-                   )
-                  )))
-          )
+                  (let ((flag enable-multibyte-characters))
+                    (prog1
+                        (as-binary-input-file
+                         (mh-read-draft "clean-up"
+                                        (mh-msg-filename msg) nil))
+                      (setq enable-multibyte-characters flag)
+                      ))
+                  ))))
       (goto-char (point-min))
       (mh-clean-msg-header (point-min) mh-new-draft-cleaned-headers nil)
       (let ((cs (detect-coding-region (point-min)(point-max))))