tm 6.18

[elisp/tm.git] / tm-setup.el

diff --git a/tm-setup.el b/tm-setup.el
index 5101186..0bd479a 100644 (file)
--- a/tm-setup.el
+++ b/tm-setup.el
@@ -1,56 +1,50 @@
 ;;;
-;;; $Id: tm-setup.el,v 6.0 1995/04/18 19:40:11 morioka Exp $
+;;; $Id: tm-setup.el,v 6.1 1995/04/23 18:09:07 morioka Exp $
 ;;;
 
-(provide 'tm-setup)
-
-;;; @ for Emacs 18
-;;;
-(if (< (string-to-int emacs-version) 19)
-    (progn
-      (require 'tl-18)
-      (defvar buffer-undo-list nil)
-      ))
+(require 'tl-misc)
 
 
 ;;; @ for LaTeX
 ;;;
-(add-hook 'tm-view-load-hook
-         (function
-          (lambda ()
-            ;; for message/partial
-            (require 'tm-partial)
-            
-            ;; for LaTeX
-            (set-atype 'mime/content-decoding-condition
-                       '((type . "text/x-latex")
-                         (method . mime/decode-text/latex)
-                         ))
-            (set-atype 'mime/content-decoding-condition
-                       '((type . "application/x-latex")
-                         (method . mime/decode-text/latex)
-                         ))
-            ;;(set-atype 'mime/content-decoding-condition
-            ;;         '((type . "application/octet-stream")
-            ;;           ("type" . "latex")
-            ;;           (method . mime/decode-text/latex)
-            ;;           ))
-            (autoload 'mime/decode-text/latex "tm-latex")
-            )))
+(call-after-loaded
+ 'tm-view
+ (function
+  (lambda ()
+    ;; for message/partial
+    (require 'tm-partial)
+    
+    ;; for LaTeX
+    (set-atype 'mime/content-decoding-condition
+              '((type . "text/x-latex")
+                (method . mime/decode-text/latex)
+                ))
+    (set-atype 'mime/content-decoding-condition
+              '((type . "application/x-latex")
+                (method . mime/decode-text/latex)
+                ))
+    ;;(set-atype 'mime/content-decoding-condition
+    ;;         '((type . "application/octet-stream")
+    ;;           ("type" . "latex")
+    ;;           (method . mime/decode-text/latex)
+    ;;           ))
+    (autoload 'mime/decode-text/latex "tm-latex")
+    )))
 
 
 ;;; @ for Anonymous FTP (need of ange-ftp)
 ;;;
-(add-hook 'tm-view-load-hook
-         (function
-          (lambda ()
-            (set-atype 'mime/content-decoding-condition
-                       '((type . "message/external-body")
-                         ("access-type" . "anon-ftp")
-                         (method . mime/decode-message/external-ftp)
-                         ))
-            (autoload 'mime/decode-message/external-ftp "tm-ftp")
-            )))
+(call-after-loaded
+ 'tm-view
+ (function
+  (lambda ()
+    (set-atype 'mime/content-decoding-condition
+              '((type . "message/external-body")
+                ("access-type" . "anon-ftp")
+                (method . mime/decode-message/external-ftp)
+                ))
+    (autoload 'mime/decode-message/external-ftp "tm-ftp")
+    )))
 
 
 ;;; @ for RMAIL
@@ -60,16 +54,15 @@
 
 ;;; @ for mh-e
 ;;;
-(add-hook 'mh-folder-mode-hook
-         (function
-          (lambda ()
-            (require 'tm-mh-e)
-            )))
-(add-hook 'mh-letter-mode-hook
-         (function
+(let ((le (function
           (lambda ()
             (require 'tm-mh-e)
-            )))
+            ))
+         ))
+  (call-after-loaded 'mh-e le 'mh-folder-mode-hook)
+  (if (not (featurep 'mh-e))
+      (add-hook 'mh-letter-mode-hook le)
+    ))
 
 
 ;;; @ for GNUS
@@ -77,8 +70,8 @@
 (let ((le (function
           (lambda ()
             (require 'tm-gnus)
-            )))
-      )
+            ))
+         ))
   (if (boundp 'MULE)
       (progn
        (add-hook 'gnus-Group-mode-hook (function gnusutil-initialize))
@@ -92,6 +85,12 @@
       (add-hook 'gnus-startup-hook le)
       )))
 
+
+;;; @ end
+;;;
+
+(provide 'tm-setup)
+
 ;;; Local Variables:
 ;;; mode: emacs-lisp
 ;;; mode: outline-minor