vm: Key for marking mail as spam.

[profile] / vm

diff --git a/vm b/vm
index 345d67f95ea83466598b7b30ee3e5e9c127f5ff0..e7777f03b9707a313f86070428d8ec434a5f2917 100644 (file)
--- 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)