Better display for `paranoid' `network-security-level'

* net/nsm.el (nsm-new-fingerprint-ok-p): Display the certificate
when querying about new certificates.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d0d44dfd49ab099760dc9771d26e4f358322ab8e..53414ed7a7be2c876aa4e77a06235c1b016240f5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2014-11-26  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * net/nsm.el (nsm-new-fingerprint-ok-p): Display the certificate
+       when querying about new certificates.
+
        * net/shr.el (shr-make-table-1): dom.el changes for table rendering.
 
        * dom.el (dom-by-tag): Use `equal' for comparisons so that tags

diff --git a/lisp/net/nsm.el b/lisp/net/nsm.el
index c5e048a727257215a985028d82bf6e60da8c074a..2b540f34e9c9e62a3587c6f8475b80cb6b7e5c94 100644 (file)
--- a/lisp/net/nsm.el
+++ b/lisp/net/nsm.el
@@ -204,7 +204,7 @@ unencrypted."
 
 (defun nsm-new-fingerprint-ok-p (host port status)
   (nsm-query
-   host port nil 'fingerprint
+   host port status 'fingerprint
    "The fingerprint for the connection to %s:%s is new:\n%s"
    host port
    (nsm-fingerprint status)))