Make the nsm query say what it did after the user interaction

* lisp/net/nsm.el (nsm-query): Issue a message about
aborting/accepting messages (suggested by N. Jackson)
(bug#22531).

1 files changed, 7 insertions, 1 deletions

diff --git a/lisp/net/nsm.el b/lisp/net/nsm.el
index d93b1bb14db..72bff66c381 100644
--- a/lisp/net/nsm.el
+++ b/lisp/net/nsm.el
@@ -307,7 +307,13 @@ unencrypted."
              (quit 'no)
              (error 'no))))
       (if (eq response 'no)
-          nil
+          (progn
+            (message "Aborting connection to %s:%s" host port)
+            nil)
+        (message (if (eq response 'session)
+                     "Accepting certificate for %s:%s this session only"
+                   "Permanently accepting certificate for %s:%s")
+                 host port)
         (nsm-save-host host port status what response)
         t))))