From: morioka <morioka>
Date: Sat, 14 Mar 1998 13:04:25 +0000 (+0000)
Subject: (mime-method-to-verify-application/pgp-signature): Use
X-Git-Tag: semi-1_1_0~48
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6f51fe62c098f93d16ed48c79041121c358ead7a;p=elisp%2Fsemi.git

(mime-method-to-verify-application/pgp-signature): Use
`mime-write-decoded-region'.
---

diff --git a/mime-pgp.el b/mime-pgp.el
index e4e0abd..1dabb5b 100644
--- a/mime-pgp.el
+++ b/mime-pgp.el
@@ -214,8 +214,7 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
 	(set-buffer (setq kbuf (get-buffer-create mime-temp-buffer-name)))
 	(insert-buffer-substring raw-buf p-min end)
 	)
-      (mime-decode-region (point-min)(point-max) encoding)
-      (as-binary-output-file (write-region (point-min)(point-max) sig-file))
+      (mime-write-decoded-region (point-min)(point-max) sig-file encoding)
       (or (mime-pgp-check-signature mime-echo-buffer-name orig-file)
 	  (let (pgp-id)
 	    (save-excursion