;;;
;;; 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"
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"
("image/gif" "display")
("image/bmp" "display")
("image/tiff" "display")
- ("application/postscript" "gv")
- ("application/pdf" "gv")))
+ ("application/postscript" "evince")
+ ("application/pdf" "evince")))
(setq vm-url-browser "firefox")