mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-03 20:24:29 +00:00
Code Issues Releases Activity

(epa-decrypt-region): Detect encoding if

Browse Source 
coding-system-for-read is not specified.
<http://sourceforge.jp/ticket/browse.php?group_id=2267&tid=17018>
(epa-verify-region): Ditto.
This commit is contained in:
Daiki Ueno 2009-06-05 01:58:53 +00:00
parent 74830ab74d
commit 42481bde61
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -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

6
lisp/epa.el
View File

@ -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)