tm 7.89.

[elisp/tm.git] / TM-CFG

diff --git a/TM-CFG b/TM-CFG
index 7104bb9..4609e3d 100644 (file)
--- a/TM-CFG
+++ b/TM-CFG
@@ -1,6 +1,6 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: TM-CFG,v 7.15 1996/09/04 15:32:36 morioka Exp morioka $
+;;; $Id: TM-CFG,v 7.23 1996/09/08 17:46:57 morioka Exp morioka $
 ;;;
 
 (defvar default-load-path load-path)
@@ -10,7 +10,8 @@
                            (expand-file-name path (getenv "PWD"))
                            ))
                         '("." "../tl" "../mu" "../mel"
-                          "../tm-mh-e" "../gnus-mime" "../tm-gnus")
+                          "../tm-mh-e" "../gnus-mime" "../tm-gnus"
+                          "../tm-mail" "../tm-vm")
                         )
                 load-path))
 
@@ -21,21 +22,69 @@
 ;;; @ Please specify optional package directory if you use them.
 ;;;
 
-;; Please specify VM path.
-(add-path "vm-5.95beta" 'all-paths)
+;; It is only necessary to use `add-path' if these packages are not
+;; already on the standard load-path of Emacs.
 
-;; Please specify Mailcrypt path.
-(add-path "mailcrypt-3.4" 'all-paths)
+;; Function `get-latest-path' detect latest version of such package
+;; under load-path directories. If you want to use a version of a
+;; package instead of latest version, please specify by argument of
+;; function `add-path'.
 
-;; Please specify BBDB path.
-(add-path "bbdb-1.50" 'all-paths)
+;; Function `add-path' finds path under load-path directories. If a
+;; package does not exist in load-path, please specify by absolutely
+;; (`~/' is available), for example
+;;     (add-path "~/lib/elisp/mailcrypt-3.4")
+;; or
+;;     (add-path "/opt/share/xmule/site-lisp/mailcrypt-3.4")
+
+;;; @@ Please specify VM path.
+;;;
+
+;; Use latest version installed in load-path.
+
+(let ((path (get-latest-path "vm" 'all-paths)))
+  (if path
+      (add-path path)
+    ))
+
+;; Or please specify path.
+;; (add-path "vm-5.95beta" 'all-paths)
+
+
+;;; @@ Please specify Mailcrypt path.
+;;;
+
+;; Use latest version installed in load-path.
+
+(let ((path (get-latest-path "mailcrypt" 'all-paths)))
+  (if path
+      (add-path path)
+    ))
+
+;; Or please specify path.
+;; (add-path "mailcrypt-3.4" 'all-paths)
+
+
+;;; @@ Please specify BBDB path.
+;;;
+
+(let ((path (get-latest-path "bbdb" 'all-paths)))
+  (if path
+      (add-path path)
+    ))
+
+;; Or please specify path.
+;; (add-path "bbdb-1.50" 'all-paths)
 
 
 ;;; @ shell
 ;;;
 
 ;; Please specify shell command path.
-(setq SHELL "/bin/sh")
+(setq SHELL
+      (find-if (function file-exists-p)
+              '("/bin/sh" "/usr/bin/sh")
+              ))
 
 ;; Please specify shell command option.
 (setq SHELLOPTION "-c")
@@ -46,15 +95,15 @@
 
 ;; Please specify install path prefix.
 ;; If it is omitted, shared directory (maybe /usr/local is used).
-(setq PREFIX install-prefix)
+(defvar PREFIX install-prefix)
 ;;(setq PREFIX "~/")
 
 ;; Please specify install path prefix for binaries.
-(setq EXEC_PREFIX
-      (if (or running-emacs-18 running-xemacs)
-         (expand-file-name "../../.." exec-directory)
-       (expand-file-name "../../../.." exec-directory)
-       ))
+(defvar EXEC_PREFIX
+  (if (or running-emacs-18 running-xemacs)
+      (expand-file-name "../../.." exec-directory)
+    (expand-file-name "../../../.." exec-directory)
+    ))
 
 ;; Please specify tm package prefix [optional]
 (setq TM_PACKAGE_PREFIX "")
@@ -96,11 +145,11 @@
 ;; For example, if <PREFIX> = "~/" and you use XEmacs,
 ;;
 ;;     <LISPDIR> = ~/share/xemacs/site-lisp/
-;;     ~/share/xemacs/site-lisp/mime-setup.{el|elc}
-;;     ~/share/xemacs/site-lisp/tl/  --- tl  lisp files
-;;     ~/share/xemacs/site-lisp/mu/  --- MU  lisp files
-;;     ~/share/xemacs/site-lisp/mel/ --- MEL lisp files
-;;     ~/share/xemacs/site-lisp/tm/  --- tm  lisp files
+;;     ~/lib/xemacs/site-lisp/mime-setup.{el|elc}
+;;     ~/lib/xemacs/site-lisp/tl/  --- tl  lisp files
+;;     ~/lib/xemacs/site-lisp/mu/  --- MU  lisp files
+;;     ~/lib/xemacs/site-lisp/mel/ --- MEL lisp files
+;;     ~/lib/xemacs/site-lisp/tm/  --- tm  lisp files
 
 
 ;;; @ executables
@@ -120,7 +169,7 @@
 
 ;; It is generated by automatically. Please set variable `PREFIX'.
 ;; If you don't like default directory tree, please set it.
-(setq LISPDIR (install-detect-elisp-directory PREFIX))
+(defvar LISPDIR (install-detect-elisp-directory PREFIX))
 ;; (setq install-default-elisp-directory "~/lib/emacs/lisp")
 
 ;; Please specify mime-setup.{el|elc} install path.
@@ -135,6 +184,8 @@
 (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)
        (if (string-equal TM_PACKAGE_PREFIX "")
@@ -179,7 +230,8 @@
 (setq BINS '("ol2" "decode-b"))
 (setq METHOD_SRC_DIR "methods")
 (setq METHODS
-      '("tm-au" "tm-file" "tm-html" "tm-image" "tm-mpeg" "tm-plain"
+      '("tm-au" "tm-file" "tm-html" "tm-image" "tm-mpeg"
+       "tm-plain" "tm-ps"
        "tmdecode"))
 
 ;;; TM-CFG ends here