tm 7.87.

[elisp/tm.git] / TM-CFG

diff --git a/TM-CFG b/TM-CFG
index c8197a1..4609e3d 100644 (file)
--- a/TM-CFG
+++ b/TM-CFG
@@ -1,6 +1,6 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: TM-CFG,v 7.22 1996/09/07 16:54:05 morioka Exp morioka $
+;;; $Id: TM-CFG,v 7.23 1996/09/08 17:46:57 morioka Exp morioka $
 ;;;
 
 (defvar default-load-path load-path)
@@ -41,7 +41,11 @@
 ;;;
 
 ;; Use latest version installed in load-path.
-(add-path (get-latest-path "vm" 'all-paths))
+
+(let ((path (get-latest-path "vm" 'all-paths)))
+  (if path
+      (add-path path)
+    ))
 
 ;; Or please specify path.
 ;; (add-path "vm-5.95beta" 'all-paths)
@@ -51,7 +55,11 @@
 ;;;
 
 ;; Use latest version installed in load-path.
-(add-path (get-latest-path "mailcrypt" 'all-paths))
+
+(let ((path (get-latest-path "mailcrypt" 'all-paths)))
+  (if path
+      (add-path path)
+    ))
 
 ;; Or please specify path.
 ;; (add-path "mailcrypt-3.4" 'all-paths)
@@ -60,7 +68,10 @@
 ;;; @@ Please specify BBDB path.
 ;;;
 
-(add-path (get-latest-path "bbdb" 'all-paths))
+(let ((path (get-latest-path "bbdb" 'all-paths)))
+  (if path
+      (add-path path)
+    ))
 
 ;; Or please specify path.
 ;; (add-path "bbdb-1.50" 'all-paths)
@@ -219,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