From: ueno <ueno>
Date: Sat, 11 Dec 1999 16:43:46 +0000 (+0000)
Subject: * mime-pgp.el: Fix autoload settings for `smime-verify-region' and
X-Git-Tag: emiko-1_13_8-tomo-1~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b0eda39c57ec946ba4941434a12da9322612c2f8;p=elisp%2Fsemi.git

* 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.
---

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))