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

[gnu-emacs] / lisp / net / nsm.el

diff --git a/lisp/net/nsm.el b/lisp/net/nsm.el
index d93b1bb14dbd79f627651896daa84006beded2f2..72bff66c381a2e6dab24f3c0d3fcf7a7665568e8 100644 (file)
--- 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))))