From c3600620d817b21dcdcf82d56ff9082b688e1a5c Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Wed, 24 Jan 2007 13:06:12 +0000
Subject: [PATCH] vm: Key for marking mail as spam.

---
 vm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/vm b/vm
index 345d67f..e7777f0 100644
--- a/vm
+++ b/vm
@@ -109,3 +109,10 @@
 		  (insert (format "To: %s\n" (join-strings ", " new))))))))))
 
 (add-hook 'vm-reply-hook 'mdw-vm-fix-mailing-lists)
+
+(defun mdw-mark-as-spam ()
+  (interactive)
+  (save-window-excursion
+    (vm-pipe-message-to-command "userv spamd spam" 1))
+  (vm-delete-message 1))
+(define-key vm-summary-mode-map "/" 'mdw-mark-as-spam)
-- 
2.11.0