(make-face 'summary)
(auto-fill-mode)
(setq  vm-circular-folders nil)
(setq vm-highlighted-header-face 'summary)
(setq vm-highlight-url-face 'bold)
(set-face-background 'summary "black")
(set-face-foreground 'summary "lightblue")
(set-face-background 'highlight "black")
(set-face-foreground 'highlight "lightblue")
(scroll-bar-mode t)
(setq mail-signature 't)
;;(setq shell-file-name "/bin/sh")
(setq vm-summary-highlight-face 'summary)
(setq vm-reply-subject-prefix "Re: ")
(setq vm-included-text-attribution-format "At %H on %m %d, %y %F shaped the electrons to say: \n")
(setq vm-folder-directory (expand-file-name "~/.maildir/"))
(setq vm-delete-after-saving 1)
(setq vm-startup-with-summary t)
(setq mail-archive-file-name (concat vm-folder-directory "sent"))
(setq vm-primary-inbox (concat vm-folder-directory "inbox"))
(setq vm-crash-box (concat vm-folder-directory "inbox.CRASH"))
(setq vm-forwarding-subject-format "%s (fwd)")
(setq make-backup-files 'nil)
(setq vm-confirm-new-folders 1)
(setq vm-highlighted-header-regexp "From:\\|Subject:")
(setq vm-preview-lines 't)
(setq vm-preview-read-messages 1)
(setq vm-preview-lines 'nil)
(setq vm-move-after-deleting 't)

;; Work around someone's brain damaged idea to make new frames by default.

(setq vm-frame-per-folder 'nil)
(setq vm-frame-per-composition 'nil)
(setq vm-frame-per-edit 'nil)
(setq vm-frame-per-summary 'nil)

(defun make-spool-list (name)
  "A function to create a list suitable as an element in vm-spool-files"
  (list (concat vm-folder-directory name)
        (concat vm-folder-directory name "-SPOOL")
        (concat vm-folder-directory name "-CRASH")))

(setq vm-spool-files 
      (list
	(list vm-primary-inbox "mail.texas.net:110:pass:mfincher:*" vm-crash-box)))