Don't have epg bug out on non-existent packages

* lisp/epg.el (epg--start): We may be called from contexts where
the directory doesn't exist, but we need to have an existing
directory here for the process (bug#32004).

1 files changed, 11 insertions, 10 deletions

diff --git a/lisp/epg.el b/lisp/epg.el
index 67d723b961b..a461afac34b 100644
--- a/lisp/epg.el
+++ b/lisp/epg.el
@@ -657,16 +657,17 @@ callback data (if any)."
                              :sentinel #'ignore
                              :noquery t))
     (setf (epg-context-error-buffer context) (process-buffer error-process))
-    (with-file-modes 448
-      (setq process (make-process :name "epg"
-                                  :buffer buffer
-                                  :command (cons (epg-context-program context)
-                                                 args)
-                                  :connection-type 'pipe
-                                  :coding 'raw-text
-                                  :filter #'epg--process-filter
-                                  :stderr error-process
-                                  :noquery t)))
+    (with-existing-directory
+      (with-file-modes 448
+        (setq process (make-process :name "epg"
+                                    :buffer buffer
+                                    :command (cons (epg-context-program context)
+                                                   args)
+                                    :connection-type 'pipe
+                                    :coding 'raw-text
+                                    :filter #'epg--process-filter
+                                    :stderr error-process
+                                    :noquery t))))
     (setf (epg-context-process context) process)))
 
 (defun epg--process-filter (process input)