From 733a7f1055d340edda1991228ebf62596b699d96 Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 14 Mar 1998 13:37:00 +0000 Subject: [PATCH] (mime-method-to-verify-application/pgp-signature): Don't use temporary buffer for signed entity. --- mime-pgp.el | 29 ++++++++--------------------- 1 file changed, 8 insertions(+), 21 deletions(-) diff --git a/mime-pgp.el b/mime-pgp.el index ab24633..5819e83 100644 --- a/mime-pgp.el +++ b/mime-pgp.el @@ -189,28 +189,15 @@ It should be ISO 639 2 letter language code such as en, ja, ...") (orig-file (make-temp-name basename)) (sig-file (concat orig-file ".sig")) ) - (save-excursion - (let ((p-min (mime-entity-info-point-min oinfo)) - (p-max (mime-entity-info-point-max oinfo)) - ) - (set-buffer (get-buffer-create mime-temp-buffer-name)) - (insert-buffer-substring raw-buf p-min p-max) - ) - (goto-char (point-min)) - (while (re-search-forward "\n" nil t) - (replace-match "\r\n") - ) - (write-region-as-binary (point-min)(point-max) orig-file) - (kill-buffer (current-buffer)) - ) + (write-region-as-binary (mime-entity-info-point-min oinfo) + (mime-entity-info-point-max oinfo) + orig-file) (save-excursion (mime-show-echo-buffer)) - (let ((p-min (save-excursion - (goto-char start) - (and (search-forward "\n\n") - (match-end 0)) - ))) - (mime-write-decoded-region p-min end sig-file encoding) - ) + (mime-write-decoded-region (save-excursion + (goto-char start) + (and (search-forward "\n\n") + (match-end 0)) + ) end sig-file encoding) (or (mime-pgp-check-signature mime-echo-buffer-name orig-file) (let (pgp-id) (save-excursion -- 1.7.10.4