Using Emacs/VM as a Mail Client

Setting Up the "DOT" files

Trimmed down, sorted version of author's .vm file.



;;; Mime stuff ("attachments") and browser tie-in.

	'("multipart/mixed" "multipart/alternative"
	  "text/plain" "multipart/signed")
      vm-mime-base64-encoder-program "/opt/local/bin/base64-encode"
      vm-mime-base64-decoder-program "/opt/local/bin/base64-decode"
      vm-mime-qp-encoder-program "/opt/local/bin/qp-encode"
      vm-mime-qp-decoder-program "/opt/local/bin/qp-decode"
      vm-send-using-mime t
	'vm-mouse-send-url-to-netscape ;;; ok w/mozilla too
        ("text/html" "mozilla") ;;; Will launch new browser.
        ("image/gif" "xv")
        ("image/jpeg" "xv")
        ("image/png" "xv")
        ("application/pdf" "acroread")
        ("application/postscript" "gv")
        ("video" "xanim")
        ("audio/x-pn-realaudio" "realplay")
        ("audio" "xwave")

;;; Folders, etc.

      vm-primary-inbox "~/Mail/Inbox"
      vm-folder-directory "~/Mail/"
      vm-crash-box "~/Mail/INBOX.CRASH"
      vm-auto-get-new-mail t
      vm-circular-folders nil
      vm-confirm-new-folders t
      vm-convert-folder-types t

;;; forwarding, replying, etc.

      vm-forwarding-subject-format "[forwarded from %F] %s"
      vm-forwarding-digest-type "rfc934"
      vm-in-reply-to-format nil
	"On %w, %m %d, %y at %h (%z), %F wrote:\n"
      vm-reply-subject-prefix "Re: "

;;; Misc

      vm-mail-header-from "Pat Murphy <pmurphy@nrao.edu>"
      vm-move-after-deleting t
      vm-delete-after-saving t
      vm-edit-message-mode 'indented-text-mode
      vm-follow-summary-cursor t

      vm-default-folder-type 'From_-with-Content-Length
      vm-trust-From_-with-Content-Length t

;;; emacs frames (windows)

      vm-frame-per-composition nil
      vm-frame-per-folder t
      vm-frame-per-edit nil

;;; appearance

      vm-preview-lines nil
      vm-startup-with-summary t
      vm-summary-format "%3n %*%A %-17.17F %-3.3m %2d (%4l) %I%s\n"
      vm-summary-highlight-face "region"
      vm-summary-show-threads nil
      vm-visible-headers '("From:" "Sender:" "To:" "Apparently-To:"
                          "Cc:" "Subject:" "Date:" "Resent-From:"
			  "Message-Id:" "Message-ID:" "Message-id:" 
                          "Resent-Sender:" "X-Zippy")

;;; Multiple VM spool files.  ONLY use this if you use procmail to put
;;; EVERYTHING into one or more spool files on your local disk!!!
;;; Note that it's commented out here. 

;; (setq vm-spool-files
   ;; '(
     ;; Triads: folder you visit, its spool file, and crash file
     ;; External mail Inbox
     ; ("~/Mail/Inbox" "~/Mail/SPOOLS/MAIN" "~/Mail/INBOX.CRASH")
     ;; Junk
     ; ("~/Mail/JUNK"  "~/Mail/SPOOLS/JUNK" "~/Mail/JUNK.CRASH")
;; ))

;;; misc: zap deleted messages when you quit a folder:

(add-hook 'vm-quit-hook 'vm-expunge-folder)

;;; From Bill Cotton: the "l" key prints.  My way!

(define-key vm-mode-map "l" 'print-messages)
(setq print-command "/users/pmurphy/bin/a2ps-mail -2")
(defun print-messages ()
   "Print the selected messages using command in print-command"
   (vm-pipe-message-to-command print-command nil)

Using Emacs/VM as a Mail Client
Pat Murphy