From: morioka <morioka>
Date: Sat, 14 Mar 1998 13:25:12 +0000 (+0000)
Subject: (mime-method-to-verify-application/pgp-signature): Don't use temporary
X-Git-Tag: semi-1_1_0~45
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fa8d294ab487dd516a4d309da13b8c5e015642da;p=elisp%2Fsemi.git

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