-(setq vm-reply-subject-prefix "Re: ")
-(setq vm-included-text-prefix "> ")
-(setq vm-included-text-attribution-format "%F <%f> wrote:\n\n")
-(setq vm-folder-directory "~/Mail/")
-(setq vm-startup-with-summary t)
-(setq vm-skip-deleted-messages nil)
-(setq vm-circular-folders nil)
-(setq vm-preview-lines nil)
-(setq vm-highlighted-header-regexp "^From\\|^Subject")
-(setq vm-delete-after-saving t)
-(setq vm-move-after-deleting t)
-(setq vm-delete-empty-folders)
-(setq vm-mime-qp-encoder-program "mimencode")
-(setq vm-mime-qp-encoder-switches '("-q"))
-(setq vm-mime-qp-decoder-program "mimencode")
-(setq vm-mime-qp-decoder-switches '("-q" "-u"))
-(setq vm-mime-base64-encoder-program "mimencode")
-(setq vm-mime-base64-encoder-switches '("-b"))
-(setq vm-mime-base64-decoder-program "mimencode")
-(setq vm-mime-base64-decoder-switches '("-b" "-u"))
+(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"
+ vm-folder-directory "~/Mail/"
+ vm-startup-with-summary t
+ vm-skip-deleted-messages nil
+ vm-circular-folders nil
+ vm-preview-lines nil
+ vm-highlighted-header-regexp "^From\\|^Subject"
+ vm-movemail-program "movemail-hack"
+ vm-delete-after-saving t
+ vm-move-after-deleting t
+ vm-delete-empty-folders)
+
+(and (eq (terminal-coding-system) 'utf-8)
+ (add-to-list 'vm-mime-default-face-charsets "utf-8"))
+
+(setq vm-mime-qp-encoder-program "mimencode"
+ vm-mime-qp-encoder-switches '("-q")
+ vm-mime-qp-decoder-program "mimencode"
+ vm-mime-qp-decoder-switches '("-q" "-u")
+ vm-mime-base64-encoder-program "mimencode"
+ vm-mime-base64-encoder-switches '("-b")
+ vm-mime-base64-decoder-program "mimencode"
+ vm-mime-base64-decoder-switches '("-b" "-u"))
+