-
-(setq TM_LISPDIR (expand-file-name TM_PACKAGE_PREFIX LISPDIR))
-
-(setq TL_DIR (expand-file-name TL_PREFIX TM_LISPDIR))
-(setq MEL_DIR (expand-file-name MEL_PREFIX TM_LISPDIR))
-(setq TM_KERNEL_DIR (expand-file-name TM_PREFIX TM_LISPDIR))
-(setq TM_MHE_DIR TM_KERNEL_DIR)
-(setq TM_GNUS_DIR TM_KERNEL_DIR)
-
-(setq TM_GNUS_COMPILE_FORMAT "cd gnus; PWD=`pwd` make %s EMACS=%s")
-(setq TM_GNUS_INSTALL_FORMAT "cd gnus; PWD=`pwd` make install-19 EMACS=%s TMDIR19=%s")
-
-(setq el-file-mode (+ (* 64 6)(* 8 4) 4))
-
-
-(setq BIN_SRC_DIR "src/")
-(setq BINS '("src/ol2" "src/decode-b"))
-(setq METHOD_SRC_DIR "methods/")
+(setq APEL_DIR (expand-file-name APEL_PREFIX LISPDIR))
+(setq TL_DIR (expand-file-name TL_PREFIX LISPDIR))
+(setq BITMAP_DIR (expand-file-name BITMAP_PREFIX LISPDIR))
+(setq MU_DIR (expand-file-name MU_PREFIX LISPDIR))
+(setq FLIM_DIR (expand-file-name FLIM_PREFIX LISPDIR))
+(setq TM_KERNEL_DIR (expand-file-name TM_PREFIX LISPDIR))
+(setq TM_MHE_DIR TM_KERNEL_DIR)
+(setq TM_GNUS_DIR TM_KERNEL_DIR)
+(setq Gnus_MIME_DIR TM_KERNEL_DIR)
+(setq TM_MAIL_DIR TM_KERNEL_DIR)
+(setq TM_VM_DIR TM_KERNEL_DIR)
+
+(cond ((member LISPDIR default-load-path)
+ (setq APEL_RELATIVE_DIR APEL_PREFIX)
+ (setq TL_RELATIVE_DIR TL_PREFIX)
+ (setq BITMAP_RELATIVE_DIR BITMAP_PREFIX)
+ (setq MU_RELATIVE_DIR MU_PREFIX)
+ (setq FLIM_RELATIVE_DIR FLIM_PREFIX)
+ (setq TM_KERNEL_RELATIVE_DIR TM_PREFIX)
+ )
+ ((string-match (concat "^" (regexp-quote (expand-file-name "~/")))
+ LISPDIR)
+ (setq APEL_RELATIVE_DIR
+ (concat "~/" (file-relative-name APEL_DIR "~/"))
+ )
+ (setq TL_RELATIVE_DIR
+ (concat "~/" (file-relative-name TL_DIR "~/"))
+ )
+ (setq BITMAP_RELATIVE_DIR
+ (concat "~/" (file-relative-name BITMAP_DIR "~/"))
+ )
+ (setq MU_RELATIVE_DIR
+ (concat "~/" (file-relative-name MU_DIR "~/"))
+ )
+ (setq FLIM_RELATIVE_DIR
+ (concat "~/" (file-relative-name FLIM_DIR "~/"))
+ )
+ (setq TM_KERNEL_RELATIVE_DIR
+ (concat "~/" (file-relative-name TM_KERNEL_DIR "~/"))
+ )
+ )
+ (t
+ (setq APEL_RELATIVE_DIR APEL_DIR)
+ (setq TL_RELATIVE_DIR TL_DIR)
+ (setq BITMAP_RELATIVE_DIR BITMAP_DIR)
+ (setq MU_RELATIVE_DIR MU_DIR)
+ (setq FLIM_RELATIVE_DIR FLIM_DIR)
+ (setq TM_KERNEL_RELATIVE_DIR TM_KERNEL_DIR)
+ ))
+(setq TM_MHE_RELATIVE_DIR TM_KERNEL_RELATIVE_DIR)
+(setq TM_GNUS_RELATIVE_DIR TM_KERNEL_RELATIVE_DIR)
+
+(setq TM_GNUS_INSTALL_FORMAT
+ "cd gnus; make install-19 EMACS=%s TMDIR19=%s")
+(setq TM_GNUS_COMPILE ".gnus-compile")
+(setq MAKE "make")
+
+
+(setq BIN_SRC_DIR "src")
+(setq BINS '("ol2" "decode-b"))
+(setq METHOD_SRC_DIR "methods")