* lisp/epa.el (epa-decrypt-file): Apply epa-pinentry-mode (Bug#30363).

diff --git a/lisp/epa.el b/lisp/epa.el
index 5c237bca9b44d46d61dd38e81bcbc4847b78ed52..70f27e272fca5b52718fc169e084bfcc6ca2a853 100644 (file)
--- a/lisp/epa.el
+++ b/lisp/epa.el
@@ -701,6 +701,7 @@ If you do not specify PLAIN-FILE, this functions prompts for the value to use."
                                        #'epa-progress-callback-function
                                        (format "Decrypting %s..."
                                                (file-name-nondirectory decrypt-file))))
+    (setf (epg-context-pinentry-mode context) epa-pinentry-mode)
     (message "Decrypting %s..." (file-name-nondirectory decrypt-file))
     (condition-case error
        (epg-decrypt-file context decrypt-file plain-file)