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

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

2 files changed, 4 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d0d44dfd49a..53414ed7a7b 100644
--- 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 c5e048a7272..2b540f34e9c 100644
--- 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)))