Additional type checking in secrets API

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6fb588381fe5dd29fc16a2b0390137478d4052ee..82c24f11643a383845b1da41a7660fb26c56f8d9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2014-02-22  Daniel Colascione  <dancol@dancol.org>
+
+       * net/secrets.el (secrets-create-item,secrets-search-items): Check
+       that attribute values are strings, avoiding the construction of
+       invalid dbus messages.
+
 2014-02-21  Juanma Barranquero  <lekktu@gmail.com>
 
        * emacs-lisp/gv.el: Avoid duplicating gv-expander and gv-setter in

diff --git a/lisp/net/secrets.el b/lisp/net/secrets.el
index a0f30e321d536af7a4c3876ddd1246ab734384a0..9ba9bd0d3cc22416846b6e8836244fe2466cd423 100644 (file)
--- a/lisp/net/secrets.el
+++ b/lisp/net/secrets.el
@@ -609,6 +609,8 @@ The object paths of the found items are returned as list."
       (while (consp (cdr attributes))
        (unless (keywordp (car attributes))
          (error 'wrong-type-argument (car attributes)))
+        (unless (stringp (cadr attributes))
+          (error 'wrong-type-argument (cadr attributes)))
        (setq props (add-to-list
                     'props
                     (list :dict-entry
@@ -647,6 +649,8 @@ The object path of the created item is returned."
        (while (consp (cdr attributes))
          (unless (keywordp (car attributes))
            (error 'wrong-type-argument (car attributes)))
+          (unless (stringp (cadr attributes))
+            (error 'wrong-type-argument (cadr attributes)))
          (setq props (add-to-list
                       'props
                       (list :dict-entry