[bug#63215] [PATCH 1/2] client: Support passing options to git send-email.

[Arun Isaac <arunisaac@systemreboot.net>]

* mumi/client.scm (git-send-email): Add options optional argument.
---
 mumi/client.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/mumi/client.scm b/mumi/client.scm
index b8d588b..2750836 100644
--- a/mumi/client.scm
+++ b/mumi/client.scm
@@ -207,12 +207,13 @@ arguments."
          (cut proc port)
          (cut close-pipe port))))))
 
-(define (git-send-email to patches)
-  "Send PATCHES using git send-email to the TO address and return the
-message ID of the first email sent."
+(define* (git-send-email to patches #:optional (options '()))
+  "Send PATCHES using git send-email to the TO address with
+OPTIONS. Return the message ID of the first email sent."
   (let ((command (cons* "git" "send-email"
                         (string-append "--to=" to)
-                        patches)))
+                        (append options
+                                patches))))
     (display (string-join command))
     (newline)
     (call-with-input-pipe command
-- 
2.39.2