Cleanup intervals.

[gnu-emacs] / lisp / epg.el

diff --git a/lisp/epg.el b/lisp/epg.el
index 4da06cd99332bbe08c366aa663994cb2a832ec4e..6529afb2d3c0f916a7d1dff28c0a81335987b0fd 100644 (file)
--- a/lisp/epg.el
+++ b/lisp/epg.el
@@ -1951,12 +1951,12 @@ The returned file name (created by appending some random characters at the end
 of PREFIX, and expanding against `temporary-file-directory' if necessary),
 is guaranteed to point to a newly created empty file.
 You can then use `write-region' to write new data into the file."
-      (let (tempdir tempfile orig-modes)
+      (let ((orig-modes (default-file-modes))
+           tempdir tempfile)
        (setq prefix (expand-file-name prefix
                                       (if (featurep 'xemacs)
                                           (temp-directory)
                                         temporary-file-directory)))
-       (setq orig-modes (default-file-modes))
        (unwind-protect
            (let (file)
              ;; First, create a temporary directory.