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 0a842061b323ea194823b148bd8f17d605552298..74af99da7e3397cc7e343795a7f24ad8b7cba285 100644 (file)
--- 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