Fixed.
authorueno <ueno>
Sun, 31 Dec 2006 08:54:54 +0000 (08:54 +0000)
committerueno <ueno>
Sun, 31 Dec 2006 08:54:54 +0000 (08:54 +0000)
epa.el

diff --git a/epa.el b/epa.el
index f486b8e..8db243e 100644 (file)
--- 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)