From: Mark Wooding <mdw@distorted.org.uk>
Date: Wed, 24 Jan 2007 13:06:12 +0000 (+0000)
Subject: vm: Key for marking mail as spam.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/commitdiff_plain/c3600620d817b21dcdcf82d56ff9082b688e1a5c?ds=inline

vm: Key for marking mail as spam.
---

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)