mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

Fix previous version of nsm-warnings-ok-p

Browse Source 
* 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.
This commit is contained in:
Lars Magne Ingebrigtsen 2014-11-25 16:30:36 +01:00
parent 88871ef611
commit ee4eb2810c
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

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

9
lisp/net/nsm.el
View File

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