(epa-decrypt-region): Detect encoding if

coding-system-for-read is not specified.
<http://sourceforge.jp/ticket/browse.php?group_id=2267&tid=17018>
(epa-verify-region): Ditto.

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  <ueno@unixuser.org>
+
+        * epa.el (epa-decrypt-region): Detect encoding if
+        coding-system-for-read is not specified.
+        <http://sourceforge.jp/ticket/browse.php?group_id=2267&tid=17018>
+        (epa-verify-region): Ditto.
+
 2009-06-04  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * 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)