(mime-method-to-verify-application/pgp-signature): Don't use temporary

buffer for PGP-signature.

diff --git a/mime-pgp.el b/mime-pgp.el
index 88b6e28..0eb5ae8 100644 (file)
--- a/mime-pgp.el
+++ b/mime-pgp.el
@@ -185,7 +185,6 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
         (raw-buf (current-buffer))
         (oinfo (mime-raw-entity-node-id-to-entity-info
                 (cons onum mother-node-id) mime-raw-message-info))
-        kbuf
         (basename (expand-file-name "tm" mime-temp-directory))
         (orig-file (make-temp-name basename))
         (sig-file (concat orig-file ".sig"))
@@ -211,10 +210,8 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
                     (and (search-forward "\n\n")
                          (match-end 0))
                     )))
-       (set-buffer (setq kbuf (get-buffer-create mime-temp-buffer-name)))
-       (insert-buffer-substring raw-buf p-min end)
+       (mime-write-decoded-region p-min end sig-file encoding)
        )
-      (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
@@ -244,7 +241,6 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
       (let ((other-window-scroll-buffer mime-echo-buffer-name))
        (scroll-other-window 8)
        )
-      (kill-buffer kbuf)
       (delete-file orig-file)
       (delete-file sig-file)
       )))