;;; -*-Lisp-*-
;;; Personal customizations for the VM  mail-reader
;;;
;(setq smtpmail-debug-info t)

;;; VM options ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq vm-startup-with-summary t
	  vm-preview-read-messages t
	  vm-strip-reply-headers t
	  vm-folder-directory "~/Mail/"		;where to save folders
	  vm-primary-inbox "~/Mail/INBOX"	;where to keep INBOX
	  vm-follow-summary-cursor t
	  vm-print-command "/usr/bin/lpr"
	  vm-print-command-switches "-Poffice")

;;;enable filladapt in vm buffers only
;(add-hook 'vm-mail-mode-hook 'turn-on-filladapt-mode)

;;; look for mail here
;(setq vm-spool-files '("/var/mail/elf" "/var/spool/mail/elf"))

;;; where to save outgoing mail
;(setq mail-archive-file-name (expand-file-name "~/Mail/outbox"))

;;; add a few additional headers to mail messages
;;;
;; uses vm-version, so it has to be in ~/.vm instead of ~/.emacs
;;(setq mail-default-headers (concat
;;"X-Mailer: VM Version " (vm-version) "/Emacs\n"
;;"Organization: Ryerson Polytechnic University\n" 
;;"X-Disclaimer: \n"
;;      ))

(setq vm-summary-uninteresting-senders "elf.*"
	  ;;do not add my email when replying to a cc
	  vm-reply-ignored-addresses (list (concat "^" user-login-name "@"))
	  ;;outgoing mail From header looks like this
	  vm-mail-header-from "luis fernandes <elf AT ee.ryerson.ca>"
	  ;;location of crash files
	  vm-keep-crash-boxes "~/.CRASH"
	  ;; control whether VM displays separate windows when...
	  vm-frame-per-folder nil			;...visiting a different folder
;	  vm-frame-per-summary nil			;displaying the summary buffer
	  vm-frame-per-composition nil		;composing an email
	  vm-frame-per-edit nil				;editing mail
;	  vm-move-after-deleting t			;move to next msg after 'd'
	  vm-mime-delete-after-saving t		;del attachment from body after saving
	  vm-auto-decode-mime-messages nil	;decode mime only when requested
)

;;; start the gnus server so we can read email by attaching to a running xemacs
;(gnuserv-start)

;;; This is support for vm-sync: If the vm buffer is idle, save 
;;; it so we can read mail from home even if we forget to close 
;;; the VM at work.
;;A suggested value for this interval is the time it takes to walk home.
;; Note:  it helps to (setq vm-mutable-frames t)
;(setq tdc-vm-sync-interval (* 1 60))
;(tdc-vm-sync-start-itimer)

;(setq vm-included-text-attribution-format "You write:\n")

;;; This is useful when folders are compress or encrypted. Forcing vm
;;; to vist a folder when saving prevents plain-text to be append to
;;; an compressed/encrypted file
;;;(setq vm-visit-when-saving t)

;; summary buffer fontification (Emacs21)
;;  (require 'u-vm-color)
;;  (add-hook 'vm-mode-hook 'u-vm-color-presentation-mode)
;;  (add-hook 'vm-presentation-mode-hook 'u-vm-color-presentation-mode)
;;  (add-hook 'vm-summary-mode-hook 'u-vm-color-summary-mode)

;;;MIME external viewers (Kevin.Cutts at motorola.com)
(setq vm-mime-external-content-types-alist
      '(
        ("image" 			        "xv")
        ("video"			        "xanim")
        ("application/postscript"	"gv")
        ("application/pdf"          "acroread")
		;;Solaris pc file viewer
        ("application/msword"           "/opt/SUNWdtpcv/bin/sdtpcv")
;		("application/ppt"              "/opt/SUNWdtpcv/bin/sdtpcv")
;		("application/x-mspowerpoint"   "/opt/SUNWdtpcv/bin/sdtpcv")
;		("application/vnd.ms-excel"     "/opt/SUNWdtpcv/bin/sdtpcv")
        ))

;;;use external programs to encode/decode MIME
(setq vm-mime-base64-decoder-program "mmencode")
(setq vm-mime-base64-decoder-switches '("-b" "-u"))
(setq vm-mime-base64-encoder-program "mmencode")
(setq vm-mime-base64-encoder-switches '("-b"))
 
;;; Display all in-line charsets (alternatively, specify them
;;; individually; see below)
;;;(setq vm-mime-default-face-charsets t)

;;;Charsets VM is allowed to display in-line (rpluim AT bigfoot.com)
(setq vm-mime-default-face-charsets 
	  '("utf-8" "us-ascii" "iso-8859-1" "iso-8859-2" "windows-1252" "iso-2022-jp" "gb-2312"))

;;; Pre-process HTML messages and display in text mode.
;;; Use "lynx -force_html -dump /dev/stdin" if you don't have w3m

(setq vm-mime-type-converter-alist
      '(("text/html" "text/plain" "w3m -T text/html -dump")))

(setq vm-mime-internal-content-type-exceptions '("text/html"))

;;; VM6.77 onwards re-defined the expunge-folder key to ###, this restores
;;; the default single #
(define-key vm-mode-map "#" 'vm-expunge-folder)

;;; treat a message as MIME even if it's lacking a MIME version
;;; header, as long as it has a Content-type header Fri Nov 01 11:07:49 2002
(setq vm-mime-require-mime-version-header nil)