From 26a882125009d58311de2b2636460cfe2b046c60 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 1 Oct 2020 05:17:01 +0200 Subject: [PATCH] Make mml-sec-tests not hang waiting for input * lisp/gnus/mml-sec.el (mml-secure-epg-sign): Only query if we're running interactively. This makes a test not hang. --- lisp/gnus/mml-sec.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/mml-sec.el b/lisp/gnus/mml-sec.el index 0a842061b32..74af99da7e3 100644 --- a/lisp/gnus/mml-sec.el +++ b/lisp/gnus/mml-sec.el @@ -988,7 +988,8 @@ Returns non-nil if the user has chosen to use SENDER." (signers (mml-secure-signers context signer-names)) signature micalg) (unless signers - (if (mml-secure-sender-sign-query protocol sender) + (if (and (not noninteractive) + (mml-secure-sender-sign-query protocol sender)) (setq signer-names (mml-secure-signer-names protocol sender) signers (mml-secure-signers context signer-names))) (unless signers -- 2.39.5