From 6a8b4f29b1b200fed5a9de6edb846ec475cb3019 Mon Sep 17 00:00:00 2001 From: shuhei-k Date: Fri, 3 Oct 1997 11:58:17 +0000 Subject: [PATCH] (mime-display-message/partial): Use `write-region'. --- mime-play.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/mime-play.el b/mime-play.el index 889f6f7..37abc88 100644 --- a/mime-play.el +++ b/mime-play.el @@ -5,7 +5,7 @@ ;; Author: MORIOKA Tomohiko ;; Created: 1995/9/26 (separated from tm-view.el) ;; Renamed: 1997/2/21 from tm-play.el -;; Version: $Id: mime-play.el,v 0.51 1997-09-05 11:42:36 morioka Exp $ +;; Version: $Id: mime-play.el,v 0.52 1997-10-03 11:58:17 shuhei-k Exp $ ;; Keywords: MIME, multimedia, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -355,7 +355,7 @@ It is registered to variable `mime-view-quitting-method-alist'." (get-buffer-create mime-temp-buffer-name)) (erase-buffer) (insert total) - (write-file total-file) + (write-region (point-min)(point-max) total-file) (kill-buffer (current-buffer)) )) (string-to-number total) @@ -388,7 +388,9 @@ It is registered to variable `mime-view-quitting-method-alist'." (goto-char (point-max)) (setq i (1+ i)) )) - (as-binary-output-file (write-file (concat root-dir "/FULL"))) + (as-binary-output-file + (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