From 185ea2120a42d027720973087d5a9bc0fe3a0de8 Mon Sep 17 00:00:00 2001 From: shuhei-k Date: Fri, 3 Oct 1997 11:57:05 +0000 Subject: [PATCH] (mime-article/check-pgp-signature): Use `write-region'. --- mime-pgp.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/mime-pgp.el b/mime-pgp.el index 0d27322..db6635c 100644 --- a/mime-pgp.el +++ b/mime-pgp.el @@ -5,7 +5,7 @@ ;; Author: MORIOKA Tomohiko ;; Created: 1995/12/7 ;; Renamed: 1997/2/27 from tm-pgp.el -;; Version: $Id: mime-pgp.el,v 0.21 1997-09-05 08:13:57 morioka Exp $ +;; Version: $Id: mime-pgp.el,v 0.22 1997-10-03 11:57:05 shuhei-k Exp $ ;; Keywords: PGP, security, MIME, multimedia, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -188,7 +188,7 @@ It should be ISO 639 2 letter language code such as en, ja, ...") (while (re-search-forward "\n" nil t) (replace-match "\r\n") ) - (as-binary-output-file (write-file orig-file)) + (as-binary-output-file (write-region (point-min)(point-max) orig-file)) (kill-buffer (current-buffer)) ) (save-excursion (mime-show-echo-buffer)) @@ -202,7 +202,7 @@ It should be ISO 639 2 letter language code such as en, ja, ...") (insert-buffer-substring raw-buf p-min end) ) (mime-decode-region (point-min)(point-max) encoding) - (as-binary-output-file (write-file sig-file)) + (as-binary-output-file (write-region (point-min)(point-max) sig-file)) (or (mime::article/call-pgp-to-check-signature mime-echo-buffer-name orig-file) (let (pgp-id) -- 1.7.10.4