[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r107553: Make epa-mail-encrypt cope w
From: |
Richard Stallman |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r107553: Make epa-mail-encrypt cope with read-only text. |
Date: |
Sat, 10 Mar 2012 03:43:27 -0500 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
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 ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r107553: Make epa-mail-encrypt cope with read-only text.,
Richard Stallman <=