Fix reverse test in previous check-in

* lisp/net/nsm.el (nsm-check-protocol): Fix reverse test in
previous check-in.

diff --git a/lisp/net/nsm.el b/lisp/net/nsm.el
index 8f09e8dfa912ff2b0f3120fca5ad90b19ebbb411..97bfc7d62f119362c1f68cfe1dc25cc19c89b053 100644 (file)
--- a/lisp/net/nsm.el
+++ b/lisp/net/nsm.el
@@ -202,8 +202,8 @@ HOST PORT STATUS OPTIONAL-PARAMETER.")
            ;; Skip the check if the user has already said that this
            ;; host is OK for this type of "error".
            when (and (not (memq type (plist-get settings :conditions)))
-                     (< (nsm-level network-security-level)
-                        (nsm-level (cadr check))))
+                     (>= (nsm-level network-security-level)
+                         (nsm-level (cadr check))))
            do (let ((result
                      (funcall (intern (format "nsm-protocol-check--%s"
                                               (car check))