From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 1 Sep 2021 10:15:21 +0000 (+0200)
Subject: Don't have epg bug out on non-existent packages
X-Git-Tag: emacs-28.0.90~1234
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b3a9d8cd3dd8d65969d853e9e16e95bb51e61dd3;p=emacs.git

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).
---

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)