From c5b82e14cacaf2757e1e0de9d5a92e3fa4234e1b Mon Sep 17 00:00:00 2001 From: yoctocell Date: Mon, 18 Jan 2021 12:36:09 +0100 Subject: Make `git-email-send-email' take files as an argument `git-email-send-email' will take a list of files as an argument. --- git-email.el | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/git-email.el b/git-email.el index 0c55183..ad08548 100644 --- a/git-email.el +++ b/git-email.el @@ -342,14 +342,13 @@ behavior is to delete them after sending email." buffers))) ;;;###autoload -(defun git-email-send-email () - "Send patch(es) to someone." - (interactive) - (let ((files (git-email--get-files))) - (dolist (file files) - (run-hooks 'git-email-pre-compose-email-hook) - (git-email--compose-email file) - (run-hooks 'git-email-post-compose-email-hook)))) +(defun git-email-send-email (files) + "Send FILES as patch(es) to someone using your MUA." + (interactive (list (git-email--get-files))) + (dolist (file files) + (run-hooks 'git-email-pre-compose-email-hook) + (git-email--compose-email file) + (run-hooks 'git-email-post-compose-email-hook))) (provide 'git-email) ;;; git-email.el ends here -- cgit v1.2.3