From 42481bde613cc36ac718954aa3d9f6837a476d3a Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Fri, 5 Jun 2009 01:58:53 +0000 Subject: [PATCH] (epa-decrypt-region): Detect encoding if coding-system-for-read is not specified. (epa-verify-region): Ditto. --- lisp/ChangeLog | 7 +++++++ lisp/epa.el | 6 ++++-- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ac0a752a36f..8e2dbe5e7bc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2009-06-05 Daiki Ueno + + * epa.el (epa-decrypt-region): Detect encoding if + coding-system-for-read is not specified. + + (epa-verify-region): Ditto. + 2009-06-04 Stefan Monnier * tar-mode.el (tar-header-block-tokenize): Obey @LongLink even for diff --git a/lisp/epa.el b/lisp/epa.el index 0e8c92390af..36c261a4e26 100644 --- a/lisp/epa.el +++ b/lisp/epa.el @@ -830,7 +830,8 @@ For example: (setq plain (epa--decode-coding-string plain (or coding-system-for-read - (get-text-property start 'epa-coding-system-used)))) + (get-text-property start 'epa-coding-system-used) + 'undecided))) (if (y-or-n-p "Replace the original text? ") (let ((inhibit-read-only t) buffer-read-only) @@ -919,7 +920,8 @@ For example: (setq plain (epa--decode-coding-string plain (or coding-system-for-read - (get-text-property start 'epa-coding-system-used)))) + (get-text-property start 'epa-coding-system-used) + 'undecided))) (if (y-or-n-p "Replace the original text? ") (let ((inhibit-read-only t) buffer-read-only) -- 2.39.5