diff mbox series

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

Message ID 20230501225158.18612-2-arunisaac@systemreboot.net
State New
Headers
Series Cc all issue participants |

Commit Message

Arun Isaac May 1, 2023, 10:51 p.m. UTC 
  * mumi/client.scm (git-send-email): Add options optional argument.
---
 mumi/client.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)
diff mbox series

Patch

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