From: shuhei-k <shuhei-k>
Date: Fri, 3 Oct 1997 11:57:05 +0000 (+0000)
Subject: (mime-article/check-pgp-signature): Use `write-region'.
X-Git-Tag: XEmacs-20_3-b27-viet~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=185ea2120a42d027720973087d5a9bc0fe3a0de8;p=elisp%2Fsemi.git

(mime-article/check-pgp-signature): Use `write-region'.
---

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 <morioka@jaist.ac.jp>
 ;; 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)