summaryrefslogtreecommitdiff
path: root/lisp/epa-mail.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>2012-03-10 03:43:27 -0500
committerRichard M. Stallman <rms@gnu.org>2012-03-10 03:43:27 -0500
commit92795c91426b870c838c7c60a143a83734d220d3 (patch)
tree6fd5646ab3017b51775cfcc94fdf3e77c234a89b /lisp/epa-mail.el
parent699bd04ed64c23bb0886376ea8576ce7eb50a942 (diff)
downloademacs-92795c91426b870c838c7c60a143a83734d220d3.tar.gz
Make epa-mail-encrypt cope with read-only text.
Diffstat (limited to 'lisp/epa-mail.el')
-rw-r--r--lisp/epa-mail.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/epa-mail.el b/lisp/epa-mail.el
index 22bfe03cab0..be5b849651c 100644
--- 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 ()