gnu: dbus: Add 1.8.10 as a replacement.

* gnu/packages/glib.scm (dbus)[replacement]: New field.
  (dbus-1.8.10): New variable.

gnu/packages/glib.scm

@@ -55,6 +55,7 @@ (define dbus
   (package
     (name "dbus")
     (version "1.8.8")
+    (replacement dbus-1.8.10)                     ;fix for CVE-2014-7824
     (source (origin
              (method url-fetch)
              (uri
@@ -113,6 +114,20 @@ (define dbus
 shared NFS home directories.")
     (license license:gpl2+)))                     ; or Academic Free License 2.1
 
+(define-public dbus-1.8.10
+  (let ((real-version "1.8.10"))
+    (package (inherit dbus)
+      (source (origin
+                (method url-fetch)
+                (uri
+                 (string-append "http://dbus.freedesktop.org/releases/dbus/dbus-"
+                                real-version ".tar.gz"))
+                (sha256
+                 (base32
+                  "13mgvwigm931r8n9363imnn0vn6dvc0m322k3p8fs5c8nvyqggqh"))
+                (patches (list (search-patch "dbus-localstatedir.patch")))))
+      (replacement #f))))
+
 (define glib
   (package
    (name "glib")