-(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 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)