tigrc: Assume commits are UTF-8 now.

[profile] / vm

diff --git a/vm b/vm
index 17d7209..3abaebb 100644 (file)
--- a/vm
+++ b/vm
@@ -56,8 +56,8 @@
        ("image/gif" "display")
        ("image/bmp" "display")
        ("image/tiff" "display")
-       ("application/postscript" "gv")
-       ("application/pdf" "gv")))
+       ("application/postscript" "evince")
+       ("application/pdf" "evince")))
 
 (setq vm-url-browser "firefox")
 
@@ -67,7 +67,8 @@
        (primary-summary ((width . 81) (height . 33)))))
 
 (setq vm-auto-folder-alist
-      '(("delivered-to" ("root@" . "admin"))))
+      '(("delivered-to" ("root@" . "admin"))
+       ("from" ("Cron Daemon" . "admin"))))
 
 (defun join-strings (del strings)
   (with-output-to-string
@@ -108,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)