-(defvar mime-viewer/external-progs "/usr/local/share/tm"
- "*Directory containing tm external methods.")
-
-(add-to-list 'exec-path mime-viewer/external-progs)
-
-(let ((paths (parse-colon-path (getenv "PATH"))))
- (or (member mime-viewer/external-progs paths)
- (setenv "PATH"
- (mapconcat (function identity)
- (append paths (list mime-viewer/external-progs))
- path-separator))
- ))
-