Sync with semi21-1_14_0-pre4-1.

[elisp/emh.git] / emh-comp.el

diff --git a/emh-comp.el b/emh-comp.el
index 1fa22f5..c50233c 100644 (file)
--- a/emh-comp.el
+++ b/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)
                       ))
                   ))))