Added `magit-wl-pipe-to-am'.

defunkt · May 6, 2010 · effbbb3 · effbbb3
1 parent 326fff2
commit effbbb3
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/magit.el b/magit.el
@@ -4074,6 +4074,17 @@ With prefix force the removal even it it hasn't been merged."
             (magit-list-buffers))
     'string=)))
 
+(defun magit-wl-pipe-to-am ()
+  "Ask the user for a project in which to apply (via am) the
+current email in wl."
+  (interactive)
+  "Pipe a wanderlust message into git am."
+  (let* ((proj (funcall magit-completing-read
+                       "Apply to project: "
+                       (magit-list-projects)
+                       nil t nil nil)))
+    (wl-summary-pipe-message-subr
+     nil (format "cd '%s' && git am" proj))))
 
 (provide 'magit)