Add function to apply patch in current buffer

* git-email.el (git-email-apply-patch):

1 files changed, 8 insertions, 0 deletions

diff --git a/git-email.el b/git-email.el
index 954eafa..801e57b 100644
--- a/git-email.el
+++ b/git-email.el
@@ -150,6 +150,14 @@ If no marks are found, return the filename at point."
 	 (message "Not a supported major mode"))))
 
 ;;;###autoload
+(defun git-email-apply-patch (project)
+  "Apply the patch in the current buffer using 'git am' in PROJECT."
+    (interactive (list (project-prompt-project-dir)))
+  (let ((default-directory project))
+    (push (list project) project--list)
+    (shell-command-on-region (point-min) (point-max) "git am")))
+
+;;;###autoload
 (defun git-email-send-email ()
   "Send patch(es) to someone."
   (interactive)