master 26a8821: Make mml-sec-tests not hang waiting for input

[Lars Ingebrigtsen]

branch: master
commit 26a882125009d58311de2b2636460cfe2b046c60
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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 0a84206..74af99d 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