From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 1 Oct 2020 03:17:01 +0000 (+0200)
Subject: Make mml-sec-tests not hang waiting for input
X-Git-Tag: emacs-28.0.90~5793
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=26a882125009d58311de2b2636460cfe2b046c60;p=emacs.git

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

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