From b0eda39c57ec946ba4941434a12da9322612c2f8 Mon Sep 17 00:00:00 2001 From: ueno Date: Sat, 11 Dec 1999 16:43:46 +0000 Subject: [PATCH] * mime-pgp.el: Fix autoload settings for `smime-verify-region' and `smime-decrypt-region. (mime-decrypt-application/pkcs7-mime): Bind `inhibit-read-only' to t. --- mime-pgp.el | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/mime-pgp.el b/mime-pgp.el index 4e1fac7..6ddaec9 100644 --- a/mime-pgp.el +++ b/mime-pgp.el @@ -58,9 +58,9 @@ (autoload 'pgg-snarf-keys-region "pgg" "Snarf PGP public keys in current region." t) (autoload 'smime-decrypt-region "smime" - "S/MIME decryption of current region." t) + "S/MIME decryption of current region.") (autoload 'smime-verify-region "smime" - "S/MIME verification of current region." t) + "S/MIME verification of current region.") ;;; @ Internal method for multipart/signed @@ -264,11 +264,13 @@ (preview-buffer (concat "*Preview-" (buffer-name) "*")) representation-type) (set-buffer (get-buffer-create new-name)) - (erase-buffer) - (mime-insert-entity entity) - (smime-decrypt-region (point-min)(point-max)) - (delete-region (point-min)(point-max)) - (insert-buffer smime-output-buffer) + (let ((inhibit-read-only t) + buffer-read-only) + (erase-buffer) + (mime-insert-entity entity) + (smime-decrypt-region (point-min)(point-max)) + (delete-region (point-min)(point-max)) + (insert-buffer smime-output-buffer)) (setq major-mode 'mime-show-message-mode) (save-window-excursion (mime-view-buffer nil preview-buffer mother nil 'binary)) -- 1.7.10.4