From 8f9a1ff7d91e2fc8d0a2f5006151c8ea4bbfe8a7 Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 19 Dec 2000 05:21:17 +0000 Subject: [PATCH] Require `emh-def'. (emh-edit-again): Use `binary-insert-file-contents'; don't use `as-binary-input-file'. --- mime/emh-comp.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) 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) )) )))) -- 1.7.10.4