# HG changeset patch
# User Daiki Ueno <ueno@unixuser.org>
# Date 1229481192 0
# Node ID e4798aef9a53c9f8d5f73e85c0b547bca80f18b9
# Parent  61a8da68221ac82278ba038570d14d12ef90f43a
* epa-file.el (epa-file-insert-file-contents): Set
buffer-file-name before decrypting a file.

diff -r 61a8da68221a -r e4798aef9a53 lisp/epa-file.el
--- a/lisp/epa-file.el	Wed Dec 17 02:32:48 2008 +0000
+++ b/lisp/epa-file.el	Wed Dec 17 02:33:12 2008 +0000
@@ -110,6 +110,8 @@
 	 (local-file (or local-copy file))
 	 (context (epg-make-context))
 	 string length entry)
+    (if visit
+	(setq buffer-file-name file))
     (epg-context-set-passphrase-callback
      context
      (cons #'epa-file-passphrase-callback-function
@@ -139,9 +141,8 @@
 	      (setq length (- (point-max) (point-min))))
 	    (if replace
 		(delete-region (point) (point-max)))
-	    (when visit
-	      (setq buffer-file-name file)
-	      (set-visited-file-modtime))))
+	    (if visit
+		(set-visited-file-modtime))))
       (if (and local-copy
 	       (file-exists-p local-copy))
 	  (delete-file local-copy)))