(setq
;;; Mime stuff ("attachments") and browser tie-in.
vm-auto-displayed-mime-content-types
'("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-url-browser
'vm-mouse-send-url-to-netscape ;;; ok w/mozilla too
vm-mime-external-content-types-alist
'(
("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
vm-included-text-attribution-format
"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-highlighted-header-regexp
"^From\\|^Subject\\|^Date\\|^CC\\|^Cc\\|To"
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"
(interactive)
(vm-pipe-message-to-command print-command nil)
)
|