From: Ted Zlatanov <tzz@lifelogs.com>
Date: Tue, 25 Nov 2014 14:09:11 +0000 (-0500)
Subject: net/nsm.el: Use `gnutls-peer-status-warning-describe'.
X-Git-Tag: emacs-25.0.90~2635^2~332
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=59bf524c77cfc84b41b9b6085b08126495bc5d0e;p=emacs.git

net/nsm.el: Use `gnutls-peer-status-warning-describe'.

* net/nsm.el (nsm-check-tls-connection, nsm-save-host)
(nsm-warnings-ok-p): Use `gnutls-peer-status-warning-describe'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d4f1dbd2177..81e28726209 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-11-25  Teodor Zlatanov  <tzz@lifelogs.com>
+
+	* net/nsm.el (nsm-check-tls-connection, nsm-save-host)
+	(nsm-warnings-ok-p): Use `gnutls-peer-status-warning-describe'.
+
 2014-11-20  Nicolas Richard  <theonewiththeevillook@yahoo.fr>
 
 	* emacs-lisp/byte-run.el (function-put): Match argument names to
diff --git a/lisp/net/nsm.el b/lisp/net/nsm.el
index fdbcd13d3ee..35edd07fb6d 100644
--- a/lisp/net/nsm.el
+++ b/lisp/net/nsm.el
@@ -169,7 +169,9 @@ unencrypted."
 		       host port
 		       (if (> (length warnings) 1)
 			   "s" "")
-		       (mapconcat 'cadr warnings "\n"))))
+		       (mapconcat #'gnutls-peer-status-warning-describe
+                                  warnings
+                                  "\n"))))
 	    (progn
 	      (delete-process process)
 	      nil)
@@ -298,7 +300,7 @@ unencrypted."
 	(nconc saved `(:conditions (:unencrypted))))
        ((plist-get status :warnings)
 	(nconc saved
-	       `(:conditions ,(mapcar 'car (plist-get status :warnings)))))))
+	       `(:conditions ,(plist-get status :warnings))))))
     (if (eq permanency 'always)
 	(progn
 	  (nsm-remove-temporary-setting id)
@@ -340,12 +342,9 @@ unencrypted."
     result))
 
 (defun nsm-warnings-ok-p (status settings)
-  (let ((not-ok nil)
-	(conditions (plist-get settings :conditions)))
-    (dolist (warning (plist-get status :warnings))
-      (when (memq (car warning) conditions)
-	(setq not-ok t)))
-    not-ok))
+  (null (cl-intersection
+         (plist-get settings :conditions)
+         (plist-get status :warnings))))
 
 (defun nsm-remove-permanent-setting (id)
   (setq nsm-permanent-host-settings