From 8ee19e27f2ee86b9bf8206b82316fb98df1b63a9 Mon Sep 17 00:00:00 2001 From: ueno Date: Thu, 4 Nov 1999 18:15:49 +0000 Subject: [PATCH] * mime-pgp.el (mime-verify-application/pgp-signature): Enclose with `unwind-protect' to be sure of deleting *.asc files. --- mime-pgp.el | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) 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)) )) -- 1.7.10.4