Fix previous version of nsm-warnings-ok-p

* net/nsm.el (nsm-format-certificate): Don't bug out on missing
elements.
(nsm-warnings-ok-p): The new version of this function always
returned nil when everything was OK.
parent 88871ef6
......@@ -2,6 +2,8 @@
* net/nsm.el (nsm-format-certificate): Don't bug out on missing
elements.
(nsm-warnings-ok-p): The new version of this function always
returned nil when everything was OK.
2014-11-25 Teodor Zlatanov <tzz@lifelogs.com>
......
......@@ -342,9 +342,12 @@ unencrypted."
result))
(defun nsm-warnings-ok-p (status settings)
(null (cl-intersection
(plist-get settings :conditions)
(plist-get status :warnings))))
(let ((ok t)
(conditions (plist-get settings :conditions)))
(dolist (warning (plist-get status :warnings))
(unless (memq warning conditions)
(setq ok nil)))
ok))
(defun nsm-remove-permanent-setting (id)
(setq nsm-permanent-host-settings
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment