From: morioka <morioka>
Date: Thu, 25 Sep 1997 15:41:51 +0000 (+0000)
Subject: (emh-edit-again): Modify for `enable-multibyte-characters'.
X-Git-Tag: XEmacs-20_3-b27-viet~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ffef636f1a6ce7553112ca46f818fed879578d8a;p=elisp%2Femh.git

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

diff --git a/emh-comp.el b/emh-comp.el
index 8cb9498..91bb5da 100644
--- 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))))