02/03: gnu: fetchmail: Wrap fetchmailconf.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit bf2370a52576bd77cf944229a8003d4dfb2c99bf
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Mon Sep 23 10:01:07 2024 +0300

    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 52ac86dfbd..e4316831d0 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