gnu: sieve-connect: Set #:guile argument of 'wrap-script'.

* gnu/packages/mail.scm
  (sieve-connect)[arguments]<#:phases>{wrap-program}:
  Set #:guile argument of ‘wrap-script’.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>

gnu/packages/mail.scm

@@ -2924,6 +2924,7 @@ transfer protocols.")
              (let ((out (assoc-ref outputs "out"))
                    (path (getenv "PERL5LIB")))
                (wrap-script (string-append out "/bin/sieve-connect")
+                 #:guile (search-input-file inputs "bin/guile")
                  `("PERL5LIB" ":" = (,path)))
                #t))))))
     (inputs