From 87ffb3d3fbcc9273cb77f22e153ed31a70e2da11 Mon Sep 17 00:00:00 2001
From: Efraim Flashner <efraim@flashner.co.il>
Date: Mon, 9 Oct 2023 09:13:17 +0300
Subject: [PATCH] gnu: isync: Patch path to openssl binary.

* gnu/packages/mail.scm (isync)[arguments]: Add a phase to patch the
path to the openssl binary for mbsync-get-cert.
---
 gnu/packages/mail.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index fd324bf449..be458a2d92 100644
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -2229,6 +2229,16 @@ (define-public isync
         ;; Likely to be included in next version
         (search-patches "isync-openssl3-fix.patch"))))
     (build-system gnu-build-system)
+    (arguments
+     (list
+       #:phases
+       #~(modify-phases %standard-phases
+           (add-after 'install 'substitute-openssl-path
+             (lambda* (#:key inputs outputs #:allow-other-keys)
+               (substitute* (string-append #$output "/bin/mbsync-get-cert")
+                 (("openssl s_client")
+                  (string-append (search-input-file inputs "/bin/openssl")
+                                 " s_client"))))))))
     (native-inputs
      (list perl))
     (inputs