From 3153f777d12beb67b360815ab3b50f9825e93a9e Mon Sep 17 00:00:00 2001
From: Phil Jackson <phil@shellarchive.co.uk>
Date: Sat, 10 Jul 2010 11:39:50 +0100
Subject: [PATCH] Add magit-wanderlust.el.

---
 magit-wanderlust.el | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 magit-wanderlust.el

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