Fix typo in sha1-intermediate check

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

diff --git a/lisp/net/nsm.el b/lisp/net/nsm.el
index 0653cfbb1a286904c663d6acca664cd9aff51ffa..dab9003e023bc1aa1934296175669bf71f646571 100644 (file)
--- 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)