From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 5 Feb 2016 06:48:44 +0000 (+1100)
Subject: Make the nsm query say what it did after the user interaction
X-Git-Tag: emacs-26.0.90~2726
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c6d4b63f25fd44f22c5de4c8f5017812b7017ff6;p=emacs.git

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).
---

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))))