diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-10-01 05:17:01 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-10-01 05:17:01 +0200 |
commit | 26a882125009d58311de2b2636460cfe2b046c60 (patch) | |
tree | a7e16c715d0dcddd13aa15528db4344a5704a303 /lisp/gnus/mml-sec.el | |
parent | 59c343ba0d0a760e01892c980ec8e427d42ed3cc (diff) | |
download | emacs-26a882125009d58311de2b2636460cfe2b046c60.tar.gz |
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.
Diffstat (limited to 'lisp/gnus/mml-sec.el')
-rw-r--r-- | lisp/gnus/mml-sec.el | 3 |
1 files changed, 2 insertions, 1 deletions
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 |