+(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)
+ (if (string-equal TM_PACKAGE_PREFIX "")
+ (setq TL_RELATIVE_DIR TL_PREFIX
+ MU_RELATIVE_DIR MU_PREFIX
+ MEL_RELATIVE_DIR MEL_PREFIX
+ TM_KERNEL_RELATIVE_DIR TM_PREFIX
+ )
+ (setq TL_RELATIVE_DIR
+ (concat (file-name-as-directory TM_PACKAGE_PREFIX) TL_PREFIX))
+ (setq MU_RELATIVE_DIR
+ (concat (file-name-as-directory TM_PACKAGE_PREFIX) MU_PREFIX))
+ (setq MEL_RELATIVE_DIR
+ (concat (file-name-as-directory TM_PACKAGE_PREFIX) MEL_PREFIX))
+ (setq TM_KERNEL_RELATIVE_DIR
+ (concat (file-name-as-directory TM_PACKAGE_PREFIX) TM_PREFIX))
+ ))
+ ((string-match (concat "^" (regexp-quote (expand-file-name "~/")))
+ LISPDIR)
+ (setq TL_RELATIVE_DIR (concat "~/" (file-relative-name TL_DIR "~/")))
+ (setq MU_RELATIVE_DIR (concat "~/" (file-relative-name MU_DIR "~/")))
+ (setq MEL_RELATIVE_DIR (concat "~/" (file-relative-name MEL_DIR "~/")))
+ (setq TM_KERNEL_RELATIVE_DIR
+ (concat "~/" (file-relative-name TM_KERNEL_DIR "~/")))
+ )
+ (t
+ (setq TL_RELATIVE_DIR TL_DIR)
+ (setq MU_RELATIVE_DIR MU_DIR)
+ (setq MEL_RELATIVE_DIR MEL_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)