* epa-file.el (epa-file-insert-file-contents): Don't move the

point to the end of the inserted region.
Reported by doug <douglas.bagley@gmail.com>

diff --git a/ChangeLog b/ChangeLog
index c91f0ef..682aa36 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2006-06-12  Daiki Ueno  <ueno@unixuser.org>
+
+       * epa-file.el (epa-file-insert-file-contents): Don't move the
+       point to the end of the inserted region.
+       Reported by doug <douglas.bagley@gmail.com>
+
 2006-06-01  Daiki Ueno  <ueno@unixuser.org>
 
        * epa-file.el (epa-file-insert-file-contents): Support partial read.

diff --git a/epa-file.el b/epa-file.el
index 3ebf50b..4a59d8d 100644 (file)
--- a/epa-file.el
+++ b/epa-file.el
@@ -104,10 +104,11 @@
          (if (boundp 'last-coding-system-used)
              (set-buffer-file-coding-system last-coding-system-used)
            (set-buffer-file-coding-system default-buffer-file-coding-system))
-         (insert string)
-         (setq length (length string))
-         (if replace
-             (delete-region (point) (point-max))))
+         (save-excursion
+           (insert string)
+           (setq length (length string))
+           (if replace
+               (delete-region (point) (point-max)))))
       (if (and local-copy
               (file-exists-p local-copy))
          (delete-file local-copy)))