[Emacs-diffs] /srv/bzr/emacs/trunk r107553: Make epa-mail-encrypt cope with read-only text.

[Richard Stallman]

------------------------------------------------------------
revno: 107553
committer: Richard Stallman <address@hidden>
branch nick: trunk
timestamp: Sat 2012-03-10 03:43:27 -0500
message:
  Make epa-mail-encrypt cope with read-only text.
modified:
  lisp/ChangeLog
  lisp/epa-mail.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-03-10 08:26:45 +0000
+++ b/lisp/ChangeLog    2012-03-10 08:43:27 +0000
@@ -1,3 +1,7 @@
+2012-03-10  Richard Stallman  <address@hidden>
+
+       * epa-mail.el (epa-mail-encrypt): Bind inhibit-read-only.
+
 2012-03-10  Chong Yidong  <address@hidden>
 
        * emulation/cua-rect.el (cua--init-rectangles):

=== modified file 'lisp/epa-mail.el'
--- a/lisp/epa-mail.el  2012-02-08 02:12:24 +0000
+++ b/lisp/epa-mail.el  2012-03-10 08:43:27 +0000
@@ -192,7 +192,9 @@
             (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 ()