From 4b05ce02c3164917ebe9f5315e32ebc493776457 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Thu, 16 Feb 2006 15:39:33 +0000
Subject: [PATCH] vm: Drag up to date.

  * Remove the bogus spool files stuff.

  * Fix up ignored addresses.

  * Update content viewers -- display is generally more available than
    eog, and it's nice to be able to read PostScript files.

  * I stopped using galeon ages ago.

  * Allow an extra column in VM frames for Emacs being weird.
---
 vm | 25 +++++++++++++------------
 1 file changed, 13 insertions(+), 12 deletions(-)

diff --git a/vm b/vm
index 4f23c6b..e488ad6 100644
--- a/vm
+++ b/vm
@@ -5,8 +5,6 @@
 (setq vm-reply-subject-prefix "Re: ")
 (setq vm-included-text-prefix "> ")
 (setq vm-included-text-attribution-format "%F <%f> wrote:\n\n")
-;;(setq vm-spool-files '("/home/mdw/Mailbox"
-;;		       "imap:tux.nsict.org:143:inbox:login:mdw:*"))
 (setq vm-folder-directory "~/Mail/")
 (setq vm-startup-with-summary t)
 (setq vm-skip-deleted-messages nil)
@@ -31,32 +29,35 @@
 (setq vm-reply-ignored-addresses '("mdw@excessus\\.demon\\.co\\.uk"
 				   "mdw@nsict\\.org" "mdw@eh\\.org"
 				   "mdw@ncipher\\.com"
+				   "mwooding@ncipher\\.com"
+				   "submit@bugs\\.ncipher\\.com"
+				   "mdw@chiark\\.greenend\\.org\\.uk"
 				   "mdw@distorted\\.org\\.uk"
 				   "mdw@metalzone\\.distorted\\.org\\.uk"
-				   "mwooding@ncipher\\.com"
 				   "tux@nsict\\.org"))
 
 (defvar mdw-mailing-lists
   '("hibachi-dealers-members@chiark\\.greenend\\.org\\.uk"))
 
 (setq vm-mime-external-content-types-alist
-      '(("image/jpeg" "eog")
-	("image/jpg" "eog")
-	("image/gif" "eog")
-	("image/tiff" "eog")))
+      '(("image/jpeg" "display")
+	("image/jpg" "display")
+	("image/gif" "display")
+	("image/tiff" "display")
+	("application/postscript" "gv")
+	("application/pdf" "gv")))
 
-(setq vm-url-browser "galeon")
+(setq vm-url-browser "firefox")
 
 (setq vm-frame-parameter-alist
-      '((folder ((width . 80) (height . 33)))
-	(summary ((width . 80) (height . 33)))
-	(primary-summary ((width . 80) (height . 33)))
+      '((folder ((width . 81) (height . 33)))
+	(summary ((width . 81) (height . 33)))
+	(primary-summary ((width . 81) (height . 33)))
 	 ))
 
 (setq vm-auto-folder-alist
       '(("delivered-to" ("root@" . "admin"))))
 
-
 (defun join-strings (del strings)
   (with-output-to-string
     (if (null strings)
-- 
2.11.0