From ffef636f1a6ce7553112ca46f818fed879578d8a Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 25 Sep 1997 15:41:51 +0000 Subject: [PATCH] (emh-edit-again): Modify for `enable-multibyte-characters'. --- emh-comp.el | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) 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 ;; 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)))) -- 1.7.10.4