From fa9d9fc57a3e7442c33e179a482eff10f25681c3 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 15 Dec 2000 04:20:54 +0000 Subject: [PATCH] (mime-store-message/partial-piece): Use `binary-insert-file-contents' instead of `insert-file-contents-as-binary'; don't use `as-binary-input-file'; use `binary-write-region' instead of `write-region-as-binary'. --- mime-play.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/mime-play.el b/mime-play.el index 1b1b869..edd46d5 100644 --- a/mime-play.el +++ b/mime-play.el @@ -369,7 +369,7 @@ It is registered to variable `mime-preview-quitting-method-alist'." (save-window-excursion (set-buffer full-buf) (erase-buffer) - (insert-file-contents-as-binary file) + (binary-insert-file-contents file) (setq major-mode 'mime-show-message-mode) (mime-view-buffer (current-buffer) nil mother) (setq pbuf (current-buffer)) @@ -420,12 +420,12 @@ It is registered to variable `mime-preview-quitting-method-alist'." (or (file-exists-p file) (throw 'tag nil) ) - (as-binary-input-file (insert-file-contents file)) + (binary-insert-file-contents file) (goto-char (point-max)) (setq i (1+ i)) )) - (write-region-as-binary (point-min)(point-max) - (expand-file-name "FULL" root-dir)) + (binary-write-region (point-min)(point-max) + (expand-file-name "FULL" root-dir)) (let ((i 1)) (while (<= i total) (let ((file (format "%s/%d" root-dir i))) -- 1.7.10.4