X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/739cf03622b9eb7068cac1c1e7b5be170088ed4f..381f2b1d7e84ddbb0b175941168e3fc3f16007dd:/vm

diff --git a/vm b/vm
index 345d67f..fcd353d 100644
--- a/vm
+++ b/vm
@@ -23,6 +23,9 @@
       vm-move-after-deleting t
       vm-delete-empty-folders)
 
+(and (eq (terminal-coding-system) 'utf-8)
+     (add-to-list 'vm-mime-default-face-charsets "utf-8"))
+
 (setq vm-mime-qp-encoder-program "mimencode"
       vm-mime-qp-encoder-switches '("-q")
       vm-mime-qp-decoder-program "mimencode"
@@ -56,8 +59,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")
 
@@ -109,3 +112,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)