>From 9945d2203362851fb24a829f2a27eead0273ffdc Mon Sep 17 00:00:00 2001
From: Florian Pelz <address@hidden>
Date: Sun, 10 Nov 2019 11:38:16 +0100
Subject: [PATCH] gn: mailman: Patch configuration to refer to the right
 binaries.

* gn/packages/mailman.scm (mailman): Patch schema.cfg.
---
 gn/packages/mailman.scm | 29 ++++++++++++++++++++++++++++-
 1 file changed, 28 insertions(+), 1 deletion(-)

diff --git a/gn/packages/mailman.scm b/gn/packages/mailman.scm
index 6fd6291..359fdf6 100644
--- a/gn/packages/mailman.scm
+++ b/gn/packages/mailman.scm
@@ -16,7 +16,8 @@
   #:use-module (gnu packages python-xyz)
   #:use-module (gnu packages python-web)
   #:use-module (gnu packages time)
-  #:use-module (gnu packages tls))
+  #:use-module (gnu packages tls)
+  #:use-module (gnu packages web-browsers))
 
 (define-public mailman
   (package
@@ -30,6 +31,32 @@
          (base32
           "1qph9i93ndahfxi3bb2sd0kjm2c0pkh844ai6zacfmvihl1k3pvy"))))
     (build-system python-build-system)
+    (arguments
+     '(#:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'patch-config
+           (lambda* (#:key outputs inputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out"))
+                   (lynx (assoc-ref inputs "lynx")))
+               (substitute* "src/mailman/config/schema.cfg"
+                 (("bin_dir:.*") (string-append "bin_dir: " out  "/bin\n"))
+                 (("html_to_plain_text_command:.*")
+                  (string-append "html_to_plain_text_command:" lynx "/bin/lynx"
+                                 " -dump $filename\n")))
+               #t)))
+         (add-after 'wrap 'restore-helper-progs
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (bin (string-append out "/bin")))
+               ;; Mailman calls os.execle on these, which retains
+               ;; PYTHONPATH anyway and fails with wrappers.
+               (rename-file (string-append bin "/.master-real")
+                            (string-append bin "/master"))
+               (rename-file (string-append bin "/.runner-real")
+                            (string-append bin "/runner"))
+               #t))))))
+    (inputs
+     `(("lynx" ,lynx)))
     (propagated-inputs
      `(("python-aiosmtpd" ,python-aiosmtpd)
        ("python-alembic" ,python-alembic)
-- 
2.21.0