From fa8d294ab487dd516a4d309da13b8c5e015642da Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 14 Mar 1998 13:25:12 +0000 Subject: [PATCH] (mime-method-to-verify-application/pgp-signature): Don't use temporary buffer for PGP-signature. --- mime-pgp.el | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) 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) ))) -- 1.7.10.4