From: ueno <ueno>
Date: Sun, 31 Dec 2006 08:54:54 +0000 (+0000)
Subject: Fixed.
X-Git-Tag: epg-0_0_10~45
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=72d762d1971731259967fb61a4e784ac747ecaa2;p=elisp%2Fepg.git

Fixed.
---

diff --git a/epa.el b/epa.el
index f486b8e..8db243e 100644
--- a/epa.el
+++ b/epa.el
@@ -754,7 +754,7 @@ Don't use this command in Lisp programs!"
 		   plain
 		   (or coding-system-for-read
 		       (get-text-property start 'epa-coding-system-used))))
-      (if (y-or-n-p "Replace the text in the region? ")
+      (if (y-or-n-p "Replace the original text? ")
 	  (let ((inhibit-read-only t)
 		buffer-read-only)
 	    (delete-region start end)
@@ -907,6 +907,7 @@ If no one is selected, default secret key is used.  "
 				       mode))
       (message "Signing...done")
       (delete-region start end)
+      (goto-char start)
       (add-text-properties (point)
 			   (progn
 			     (insert (epa--decode-coding-string
@@ -997,6 +998,7 @@ If no one is selected, symmetric encryption will be performed.  "))))
 				       recipients))
       (message "Encrypting...done")
       (delete-region start end)
+      (goto-char start)
       (add-text-properties (point)
 			   (progn
 			     (insert cipher)