From bf2370a52576bd77cf944229a8003d4dfb2c99bf Mon Sep 17 00:00:00 2001
From: Efraim Flashner <efraim@flashner.co.il>
Date: Mon, 23 Sep 2024 10:01:07 +0300
Subject: [PATCH] gnu: fetchmail: Wrap fetchmailconf.

* gnu/packages/mail.scm (fetchmail)[arguments]: Add a phase to wrap
fetchmailconf with GUIX_PYTHONPATH.
[inputs]: Add bash-minimal, python-future, python-wrapper.

Change-Id: I6f48361e7d739bfcaa2d1f20eb177933e5e7a5d8
---
 gnu/packages/mail.scm | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index 52ac86dfbda..e4316831d03 100644
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -633,9 +633,20 @@ to run without any changes.")
     (arguments
      (list #:configure-flags
            #~(list (string-append "--with-ssl="
-                                  #$(this-package-input "openssl")))))
+                                  #$(this-package-input "openssl")))
+           #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'install 'wrap-fetchmailconf
+                 (lambda _
+                   (wrap-program (string-append #$output "/bin/fetchmailconf")
+                    `("GUIX_PYTHONPATH" ":"
+                      prefix (,(getenv "GUIX_PYTHONPATH")))))))))
     (inputs
-     (list openssl))
+     (list openssl
+           ;; Needed for fetchmailconf
+           bash-minimal
+           python-future
+           python-wrapper))
     (home-page "https://www.fetchmail.info/")
     (synopsis "Remote-mail retrieval and forwarding utility")
     (description