From 92795c91426b870c838c7c60a143a83734d220d3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 10 Mar 2012 03:43:27 -0500 Subject: [PATCH] Make epa-mail-encrypt cope with read-only text. --- lisp/ChangeLog | 4 ++++ lisp/epa-mail.el | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 17dc84304f9..e1ece83b6a6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2012-03-10 Richard Stallman + + * epa-mail.el (epa-mail-encrypt): Bind inhibit-read-only. + 2012-03-10 Chong Yidong * emulation/cua-rect.el (cua--init-rectangles): 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 () -- 2.39.2