;;; VM profile of Jorge Stolfi (DCC-UNICAMP 95-04-08)
;;; Last edited on 2019-08-26 13:44:56 by stolfilocal

; (require 'tm-vm)

(define-mail-alias "leonids" 
  "guibas@cs.stanford.edu, lizhang@cs.stanford.edu, jeffe@cs.duke.edu, jbasch@cs.stanford.edu"
)

(defun vm-expand-aliases ()
"Expands the aliases in the current line."
  (interactive)
  (save-excursion
    (let 
      ( (beg (progn (beginning-of-line) (point)))
        (end (progn (end-of-line) (forward-char) (point)))
      )
      (expand-mail-aliases beg end)
    )
  )
)

(defun vm-latex-preview()
  "Format and preview mail message in LaTeX"
  (interactive)
  (vm-pipe-message-to-command
    (expand-file-name "~/lib/show-latex-message")
    nil
  )
)

(add-hook 
  'vm-mode-hooks 
  (function 
    (lambda () 
      (define-key vm-mode-map "l" 'vm-latex-preview)
      (define-key vm-mode-map "x" 'vm-save-folder) ;; Malditas inconsist^encias
      (stolfi-time-stamp-buffer-setup 
        nil nil nil nil 
        nil nil nil nil
      )
      
      (define-key mail-mode-map [SunF36] 'vm-expand-aliases)
    )
  )
)

;;; vm variables

(setq

    vm-folder-directory  (expand-file-name "~/vm-folders/")

    vm-primary-inbox     (expand-file-name "~/vm-folders/INBOX")
    vm-crash-box         (expand-file-name "~/vm-folders/CRASHBOX")
    vm-visible-headers 
      '( "Date:" 
         "From:" 
         "Sender:" 
         "To:" 
         "Apparently-To:" 
         "C[cC] :" 
         "In-Reply-To:" 
         "Keywords:" 
         "Subject:"
       )
;;;   vm-invisible-header-regexp nil
    vm-highlighted-header-regexp "^From\\|^Subject"
    vm-preview-lines nil
;;;    vm-spool-files (list "/var/spool/mail/stolfi")
;;;    vm-preview-read-messages t
    vm-auto-next-message nil
;;;    vm-confirm-quit 0
;;;    vm-retain-message-order 0
    vm-confirm-new-folders t
;;;    vm-delete-empty-folders t
;;;    vm-flush-interval 90
;;;    vm-visit-when-saving 0
    vm-auto-folder-case-fold-search t
    vm-auto-folder-alist
      '(
	("To"
	 ("ramshaw" . "src")
	 ("guibas" . "src")
	 ("veach" . "src")
	)
	("Sender"
	 ("ramshaw" . "src")
	 ("guibas" . "src")
	 ("veach" . "src")
	)
	("Subject"
	 ("bitftp reply" . "bitftp")
	)
	("From"
	 ("ramshaw" . "src")
	 ("guibas" . "src")
	 ("veach" . "src")
	 ("golombek" . "astro")
	 ("daemon@decwrl.dec.com" . "decftp")
         ("NA-NET" . "math-num")
         ("Opt-Net" . "opt-net")
	)
      )
;;;    vm-virtual-folder-alist nil
;;;    vm-virtual-mirror nil
    vm-folder-read-only nil
    vm-included-text-prefix "    > "
    vm-keep-sent-messages 999
    vm-reply-subject-prefix "Re: "
    vm-reply-ignored-addresses (list (getenv "USER") )
;;;    vm-in-reply-to-format "%i"
    vm-included-text-attribution-format nil ; [was "%F writes:\n" --js]
    vm-forwarding-subject-format "%s"
;;;    vm-digest-preamble-format "\"%s\" (%F)"
;;;    vm-digest-center-preamble t
;;;    vm-summary-format "%3n %*%a %-17.17F %-3.3m %2d %4l/%-5c \"%s\"\n"
    vm-summary-format "%2n %*%a %-17.17F %4.4y-%02.2M-%02.2d %6c \"%s\"\n"
;;;    vm-auto-center-summary nil
    vm-mail-window-percentage 50
;;;    vm-mutable-windows t
    vm-frame-per-composition nil
    vm-frame-per-folder nil
    vm-startup-with-summary t
    vm-follow-summary-cursor t
;;;    vm-group-by nil
;;;    vm-skip-deleted-messages t
;;;    vm-skip-read-messages nil
    vm-move-after-deleting t
    vm-move-after-undeleting t
    vm-delete-after-saving t
    vm-delete-after-archiving t
    vm-delete-after-bursting t
    vm-circular-folders nil
;;;    vm-search-using-regexps nil
;;;    vm-edit-message-mode 'text-mode
;;;    vm-gargle-uucp t
;;;    vm-strip-reply-headers nil
;;;    vm-rfc934-forwarding t
    vm-inhibit-startup-message t
)