diff options
Diffstat (limited to 'lisp/epg.el')
| -rw-r--r-- | lisp/epg.el | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/lisp/epg.el b/lisp/epg.el index 77181a1a342..26e3b3d2501 100644 --- a/lisp/epg.el +++ b/lisp/epg.el @@ -1206,7 +1206,6 @@ This function is for internal use only." (coding-system-for-read 'binary) process-connection-type (process-environment process-environment) - (orig-mode (default-file-modes)) (buffer (generate-new-buffer " *epg*")) process terminal-name @@ -1265,14 +1264,9 @@ This function is for internal use only." (setq epg-agent-file agent-file) (make-local-variable 'epg-agent-mtime) (setq epg-agent-mtime agent-mtime)) - (unwind-protect - (progn - (set-default-file-modes 448) - (setq process - (apply #'start-process "epg" buffer - (epg-context-program context) - args))) - (set-default-file-modes orig-mode)) + (with-file-modes 448 + (setq process (apply #'start-process "epg" buffer + (epg-context-program context) args))) (set-process-filter process #'epg--process-filter) (epg-context-set-process context process))) |