@@ -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