From 0caa3c2845d2c1c635670f4abfbb6631aeb9221e Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 17 Apr 2006 05:43:03 +0000 Subject: [PATCH] Fixed. --- epa-file.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/epa-file.el b/epa-file.el index 202ccdf..4c34b45 100644 --- a/epa-file.el +++ b/epa-file.el @@ -53,6 +53,8 @@ (defun epa-find-file () (when (string-match epa-file-name-regexp (buffer-file-name)) (when (file-exists-p (expand-file-name (buffer-file-name))) + (make-local-variable 'epa-file) + (make-local-variable 'epa-passphrase) (if (fboundp 'set-buffer-multibyte) (set-buffer-multibyte t)) (goto-char (point-min)) @@ -67,15 +69,14 @@ (delete-region (point) (point-max)) (decode-coding-region (point-min) (point-max) 'undecided) (if (boundp 'last-coding-system-used) - (set-buffer-file-coding-system last-coding-system-used)) + (set-buffer-file-coding-system last-coding-system-used) + (set-buffer-file-coding-system default-buffer-file-coding-system)) (set-auto-mode) (hack-local-variables) (auto-save-mode nil) (set-buffer-modified-p nil) - (setq buffer-undo-list nil)) - (make-local-variable 'epa-file) - (setq epa-file (buffer-file-name)) - (make-local-variable 'epa-passphrase))) + (setq buffer-undo-list nil + epa-file (buffer-file-name))))) (defun epa-write-file () (when epa-file -- 1.7.10.4