;; -*-Lisp-*-
;; ***************************************************************************
;;              Ingos own special vm-initialization
;; ***************************************************************************
;; ---------------------------------------------------------------------------
;; Basic setup
;; ---------------------------------------------------------------------------
;; The name and location of the inbox
;; how to get the mail from there
;; where to store it while downloading
(setq vm-spool-files
      (list
       (list "~/INBOX"
             "komserver.ikoch.de:110:pass:ingo.koch:HERE_IS_MY_PASSWORD"
             "~/Mail/INBOX.CRASH")
      )
)

;; The default directory for the different mail folders
(setq vm-folder-directory "~/Mail")

;; ---------------------------------------------------------------------------
;; Archiving of incoming mail
;; ---------------------------------------------------------------------------

;; regexpr/folder pair for automatic dispatching of incoming mail into the
;; appropriate mail folder
(setq vm-auto-folder-alist
      '(
	("Sender:" ("owner-ntemacs-users@cs.washington.edu" . "~/Mail/NT-emacs"))
	("Sender:" ("cygwin-owner@sourceware.cygnus.com" . "~/Mail/Cygnus"))
	("From:" ("gmxred@gmx.net" . "~/Mail/gmx"))
	("Sender:" ("majordomo@gedanken.demon.co.uk" . "~/Mail/wwwoffle-users"))
        ("Sender:" ("owner-wwwoffle-users@gedanken.demon.co.uk" . "~/Mail/wwwoffle-users"))
	("Sender:" ("owner-ct-register" . "~/Mail/ct-register"))
	("From:" ("email@jayde.com" . "~/Mail/muell"))
       )
)

;; please delete them from the INBOX after they are in their new place
(setq vm-delete-after-archiving t)

(defun my-vm-arrived-messages-hook ()
  (vm-auto-archive-messages)
  (vm-expunge-folder))

(add-hook 'vm-arrived-messages-hook 'my-vm-arrived-messages-hook)


;; ---------------------------------------------------------------------------
;; this 'n that
;; ---------------------------------------------------------------------------

;; always preview the whole message when selecting a mail in the summary buffer
(setq vm-preview-lines t)

;; always show threads (really good for the mailing lists
(setq-default vm-summary-show-threads t)

; really move the messages when saved 
(setq vm-move-message-physically t)

(setq vm-fill-paragraphs-containing-long-lines 80)

;; NO backups of the mail folders, mine are quite huge, due to the
;; mailing lists and I don't want to have a multi MB backup of a multi MB folder 
(add-hook 'vm-mode-hook
	  (lambda ()
	    (set (make-local-variable 'backup-inhibited) t)))