Make epa-mail-encrypt cope with read-only text.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 17dc84304f9ca1d0cf4a10fb14cf35859c122562..e1ece83b6a6edfb882eaf836dbeb2be9c4c4b522 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-03-10  Richard Stallman  <rms@gnu.org>
+
+       * epa-mail.el (epa-mail-encrypt): Bind inhibit-read-only.
+
 2012-03-10  Chong Yidong  <cyd@gnu.org>
 
        * emulation/cua-rect.el (cua--init-rectangles):

diff --git a/lisp/epa-mail.el b/lisp/epa-mail.el
index 22bfe03cab04ced34b24d96992613f731e2af293..be5b849651cb0a1d6234acef71f892549a116dba 100644 (file)
--- a/lisp/epa-mail.el
+++ b/lisp/epa-mail.el
@@ -192,7 +192,9 @@ If no one is selected, symmetric encryption will be performed.  "
             (if sign
                 (epa-select-keys context
                                  "Select keys for signing.  "))))))
-  (epa-encrypt-region start end recipients sign signers))
+  ;; Don't let some read-only text stop us from encrypting.
+  (let ((inhibit-read-only t))
+    (epa-encrypt-region start end recipients sign signers)))
 
 ;;;###autoload
 (defun epa-mail-import-keys ()