From: ueno <ueno>
Date: Thu, 4 Nov 1999 18:15:49 +0000 (+0000)
Subject: * mime-pgp.el (mime-verify-application/pgp-signature): Enclose
X-Git-Tag: emiko-1_13_7~73
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8ee19e27f2ee86b9bf8206b82316fb98df1b63a9;p=elisp%2Fsemi.git

* mime-pgp.el (mime-verify-application/pgp-signature): Enclose
with `unwind-protect' to be sure of deleting *.asc files.
---

diff --git a/mime-pgp.el b/mime-pgp.el
index cc13890..f499c4e 100644
--- a/mime-pgp.el
+++ b/mime-pgp.el
@@ -168,16 +168,17 @@ It should be ISO 639 2 letter language code such as en, ja, ...")
 	 )
     (save-excursion (mime-show-echo-buffer))
     (mime-write-entity-content entity sig-file)
-    (with-temp-buffer
-      (mime-insert-entity orig-entity)
-      (goto-char (point-min))
-      (while (progn (end-of-line) (not (eobp)))
-	(insert "\r")
-	(forward-line 1))
-      (let ((pgg-output-buffer mime-echo-buffer-name))
-	(funcall (pgp-function 'verify) 
-		 (point-min)(point-max) sig-file 'fetch)))
-    (delete-file sig-file)
+    (unwind-protect
+	(with-temp-buffer
+	  (mime-insert-entity orig-entity)
+	  (goto-char (point-min))
+	  (while (progn (end-of-line) (not (eobp)))
+	    (insert "\r")
+	    (forward-line 1))
+	  (let ((pgg-output-buffer mime-echo-buffer-name))
+	    (funcall (pgp-function 'verify) 
+		     (point-min)(point-max) sig-file 'fetch)))
+      (delete-file sig-file))
     ))