;;;
;;; Configuration for VM
-(let ((path exec-path))
- (while path
- (let ((try (expand-file-name "movemail" (car path))))
- (if (file-executable-p try)
- (setenv "REAL_MOVEMAIL" try))
- (setq path (cdr path)))))
-
(setq vm-reply-subject-prefix "Re: "
vm-included-text-prefix "> "
vm-included-text-attribution-format "%F <%f> wrote:\n\n"