From: tomo <tomo>
Date: Tue, 19 Dec 2000 05:21:17 +0000 (+0000)
Subject: Require `emh-def'.
X-Git-Tag: semi21-1_14_0-1~27
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8f9a1ff7d91e2fc8d0a2f5006151c8ea4bbfe8a7;p=elisp%2Flemi.git

Require `emh-def'.
(emh-edit-again): Use `binary-insert-file-contents'; don't use
`as-binary-input-file'.
---

diff --git a/mime/emh-comp.el b/mime/emh-comp.el
index 1fa22f5..c50233c 100644
--- a/mime/emh-comp.el
+++ b/mime/emh-comp.el
@@ -29,6 +29,7 @@
 
 (require 'mh-comp)
 (require 'mime-edit)
+(require 'emh-def)
 
 ;; Avoid byte compile warnings.
 ;; (defvar gnus-article-buffer)
@@ -234,7 +235,7 @@ See also documentation for `\\[mh-send]' function."
 			    (mh-msg-filename msg mh-draft-folder)
 			    ))
 		       (set-buffer (get-buffer-create name))
-		       (as-binary-input-file (insert-file-contents filename))
+		       (binary-insert-file-contents filename)
 		       (setq buffer-file-name filename)
 		       )
 		     (pop-to-buffer name)
@@ -243,11 +244,11 @@ See also documentation for `\\[mh-send]' function."
 			 )
 		     name))
 		  (t
-		   (let ((flag enable-multibyte-characters))
+		   (let ((flag enable-multibyte-characters)
+			 (coding-system-for-read 'binary))
 		     (prog1
-			 (as-binary-input-file
-			  (mh-read-draft "clean-up"
-					 (mh-msg-filename msg) nil))
+			 (mh-read-draft "clean-up"
+					(mh-msg-filename msg) nil)
 		       (set-buffer-multibyte flag)
 		       ))
 		   ))))