;; Wheeler Ruml's VM configuration file  -*-emacs-lisp-*-

;;;;;;;;;;;;;;;;;;;;;;;;; start-up

;; don't bring up new frames
(setq vm-mutable-frames nil)
;; don't use toolbar
(setq vm-use-toolbar nil)

;; use BBDB.  M-TAB to complete email address
(bbdb-insinuate-vm)

;;;;;;;;;;;;;;;;;;;;;;;;;; incoming

(setq vm-spool-files '("imap-ssl:mailhost.cs.unh.edu:993:inbox:login:ruml:*"))
(setq vm-stunnel-program "/usr/bin/stunnel4")

;; nil = must run vm-expunge-imap-messages explicitly
(setq vm-imap-expunge-after-retrieving t)

;; default is 300.  10800 is 3 hours.  2 hours is 7200.
(setq vm-mail-check-interval 10800)

;; not ~/INBOX
(setq vm-primary-inbox "~/library/mail/inbox")
(setq vm-crash-box "~/library/mail/inbox.crash")

;; don't preview messages, immediately mark as read
(setq vm-preview-lines nil)

;; from http://www-uxsup.csx.cam.ac.uk/~fanf2/hermes/doc/misc/emacs-vm.txt
(defun vm-auto-sort-new ()
  "Sort messages in date order."
  (interactive)
  (condition-case nil
      (save-window-excursion
        (save-excursion
          (vm-sort-messages "date")))))
(add-hook 'vm-arrived-message-hook 'vm-auto-sort-new)

;;;;;;;;;; MIME decoding

(setq vm-mime-qp-decoder-program "qp-decode"
      vm-mime-qp-encoder-program "qp-encode"
      vm-mime-base64-decoder-program "base64-decode"
      vm-mime-base64-encoder-program "base64-encode"
      vm-mime-qp-decoder-switches nil
      vm-mime-qp-encoder-switches nil
      vm-mime-base64-decoder-switches nil
      vm-mime-base64-encoder-switches nil)

;;;;;;;;;;; MIME displaying

;; types to display automatically/immediately
(setq vm-auto-displayed-mime-content-types '("text" "multipart"))

;; exceptions - don't try to display html or jpegs inside Emacs
(setq vm-mime-internal-content-type-exceptions
      (append '(;"text/html"
		"image/jpeg"
		"image/tiff")
	      vm-mime-internal-content-type-exceptions))

;; what to use for display
(setq vm-mime-external-content-types-alist
      '(("application/msword" "ooffice")
	("application/pdf" "evince")
	("application/postscript" "evince")
	("application/vnd.oasis.opendocument.presentation" "ooffice")
	("application/vnd.ms-excel" "ooffice")
	("application/vnd.ms-powerpoint" "ooffice")
	("image/png" "eog")
	("image/jpeg" "eog")
	("image/pjpeg" "eog")
	("image/tiff" "eog")
	("text/html" "firefox")))

;; don't kill viewer when leaving message
(setq vm-mime-delete-viewer-processes nil)

;;;;;;;;;; saving

(setq vm-auto-folder-alist
      '(("Subject:"
	 ("orkshop" . "~/projects/stair-08/mail"))
	("To:"
	 ("search-class" . "~/courses/980/mail"))))

;; mark for deletion after saving msg to a folder
(setq vm-delete-after-saving t)
;; advance to next msg after deleting
(setq vm-move-after-deleting t)


;;;;;;;;;;;;;;;;;;;;;;;;; outgoing

;; archive all outgoing mail
(setq mail-archive-file-name "~/library/mail/outgoing-mail-archive")
;; include ~/.signature
(setq mail-signature t)
;; prepend Re: if not present (default is do nothing)
(setq vm-reply-subject-prefix "Re: ")
;; default is " > "
(setq vm-included-text-prefix "> ")

;; check multi-line recipients
(setq vm-tale-is-an-idiot t)

;; EOF