diff --git a/magit-wanderlust.el b/magit-wanderlust.el
new file mode 100644
index 00000000..bf140448
--- /dev/null
+++ b/magit-wanderlust.el
@@ -0,0 +1,18 @@
+;;; magit-wanderlust.el --- wanderlust extension for Magit
+
+(require 'magit)
+
+(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-wanderlust)
+;;; magit-wanderlust.el ends here