guix: Use development version of guile-email.

* guix.scm (guile-email-devel): New variable.
(guile-debbugs-devel)[propagated-inputs]: Use it.

1 files changed, 23 insertions, 2 deletions

diff --git a/guix.scm b/guix.scm
index dfda6cd..6798804 100644
--- a/guix.scm
+++ b/guix.scm
@@ -36,6 +36,27 @@
              (gnu packages texinfo)
              (srfi srfi-1))
 
+(define-public guile-email-devel
+  (let ((commit "7c6f220e95feb3bc79f48aca16b5ca691a561d97")
+        (revision "1"))
+    (package (inherit guile-email)
+      (name "guile-email")
+      (version (git-version (package-version guile-email) revision commit))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url "https://git.systemreboot.net/guile-email")
+                      (commit commit)))
+                (file-name (git-file-name name version))
+                (sha256
+                 (base32
+                  "0vffnwwxi4bpi4lvpii65qscz5g69blnj6lhx5zx8fhybcbzk4ni"))))
+      (native-inputs
+       `(("pkg-config" ,pkg-config)
+         ("autoconf" ,autoconf)
+         ("automake" ,automake)
+         ("texinfo" ,texinfo))))))
+
 (define-public guile-debbugs-devel
   (let ((commit "fb0ae064037a38a0d526e08b4ad24c52e205edb9")
         (revision "1"))
@@ -58,7 +79,7 @@
          ("automake" ,automake)
          ("texinfo" ,texinfo)))
       (propagated-inputs
-       `(("guile-email" ,guile-email)))
+       `(("guile-email" ,guile-email-devel)))
       (inputs
        `(("guile" ,guile-2.2))))))
 
@@ -69,7 +90,7 @@
   (build-system gnu-build-system)
   (inputs
    `(("guile-debbugs" ,guile-debbugs-devel)
-     ("guile-email" ,guile-email)
+     ("guile-email" ,guile-email-devel)
      ("guile-json" ,guile-json)
      ("guile-fibers" ,guile-fibers)
      ("guile-syntax-highlight" ,guile-syntax-highlight)