mu4e-actions.el: add mu4e-action-git-apply-mbox example

Apply patch is useful when you might want to change the patch. However
for reviews you may well just want stuff applied directly to the
commit history.

mu4e/mu4e-actions.el

@@ -180,6 +180,19 @@ store your org-contacts."
       (format "cd %s; git apply %s"
 	path
 	(mu4e-message-field msg :path)))))
+
+(defun mu4e-action-git-apply-mbox (msg)
+  "Apply and commit the git [patch] message."
+  (let ((path (ido-read-directory-name "Target directory: "
+                                       (car ido-work-directory-list)
+                                       "~/" t)))
+    (setf ido-work-directory-list
+          (cons path (delete path ido-work-directory-list)))
+    (shell-command
+      (format "cd %s; git am %s"
+	path
+	(mu4e-message-field msg :path)))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;