(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 (file)
--- 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