Fix typo in sha1-intermediate check

* lisp/net/nsm.el (nsm-protocol-check--intermediate-sha1): Allow
storing the exception with a correct name.

1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/net/nsm.el b/lisp/net/nsm.el
index 0653cfbb1a2..dab9003e023 100644
--- a/lisp/net/nsm.el
+++ b/lisp/net/nsm.el
@@ -265,7 +265,7 @@ HOST PORT STATUS OPTIONAL-PARAMETER.")
                                  (plist-get certificate :subject)))
                      (string-match "\\bSHA1\\b" algo)
                      (not (nsm-query
-                           host port status :signature-sha1
+                           host port status :intermediate-sha1
                            "An intermediate certificate used to verify the connection to %s:%s uses the SHA1 algorithm (%s), which is believed to be unsafe."
                            host port algo)))
            do (cl-return nil)