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

diff --git a/mime-pgp.el b/mime-pgp.el
index 0d27322..db6635c 100644 (file)
--- 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)