X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=gnus%2Fmk-tgnus;h=c243ce3694644b207d2edd540be7109f3b02e0d8;hb=81a628c371a54077532fc5b4fcc501e040b84f06;hp=9a8cac7b75fca3899c63dade3c04577156bdc86f;hpb=15cb3afb2b5a34521da0c387f61bda4a72998615;p=elisp%2Ftm.git

diff --git a/gnus/mk-tgnus b/gnus/mk-tgnus
index 9a8cac7..c243ce3 100644
--- a/gnus/mk-tgnus
+++ b/gnus/mk-tgnus
@@ -1,6 +1,6 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: mk-tgnus,v 3.0 1996/05/07 17:38:25 morioka Exp $
+;;; $Id: mk-tgnus,v 7.5 1996/09/03 15:30:22 morioka Exp $
 ;;;
 
 (setq load-path
@@ -9,10 +9,11 @@
 		(lambda (path)
 		  (expand-file-name path (getenv "PWD"))
 		  ))
-	       '("." ".." "../../tl/" "../../mel/"))
+	       '("." ".." "../../tl/" "../../mu/" "../../mel/"))
        load-path))
 
 (require 'emu)
+(require 'install)
 
 (defun compile-tm-gnus ()
   (load "gnus.el")
@@ -21,13 +22,13 @@
   (require 'tm-partial)
   (require 'tm-edit)
   (princ (format "%s\n" gnus-version))
-  (cond ((boundp 'gnus-original-article-buffer)
-	 (require 'tm-gnus)
-	 (byte-compile-file "tm-sgnus.el")
-	 )
-	((string-match "Gnus v5\\|September Gnus" gnus-version)
-	 (require 'tm-gnus)
-	 (byte-compile-file "tm-gnus4.el")
+  (cond ((boundp 'gnus-load-hook)
+	 (byte-compile-file "gnus-mime.el")
+	 (byte-compile-file "gnus-charset.el")
+	 (byte-compile-file "gnus-sum-mime.el")
+	 (byte-compile-file "gnus-art-mime.el")
+	 (byte-compile-file "message-mime.el")
+	 ;;(byte-compile-file "gnus-msg-mime.el")
 	 )
 	((string-match "GNUS 4" gnus-version)
 	 (require 'tm-gnus)
@@ -40,38 +41,6 @@
   ;;(byte-compile-file "tm-gnus.el")
   )
 
-(defconst el-file-mode (+ (* 64 6)(* 8 4) 4))
-
-(defun install-el (path file)
-  (let ((full-path (expand-file-name file path)))
-    (if (file-exists-p full-path)
-	(set-file-modes full-path el-file-mode)
-      )
-    (copy-file file full-path t t)
-    (princ (format "%s -> %s\n" file path))
-    ))
-
-(defun install-el-files (path &rest files)
-  (mapcar (function (lambda (file)
-		      (if (file-exists-p file)
-			  (install-el path file)
-			)))
-	  files))
-
-(defun install-elc (path file)
-  (let ((full-path (expand-file-name file path)))
-    (copy-file file full-path t t)
-    (delete-file file)
-    (princ (format "%s -> %s\n" file path))
-    ))
-
-(defun install-elc-files (path &rest files)
-  (mapcar (function (lambda (file)
-		      (if (file-exists-p file)
-			  (install-elc path file)
-			)))
-	  files))
-
 (defun install-tm-gnus ()
   (let ((path (car command-line-args-left)))
     (princ (format "%s\n" emacs-version))
@@ -79,34 +48,41 @@
 	(make-directory path t)
       )
     (cond (running-emacs-18
-	   (install-el-files path
-			     "tm-gnus.el"
-			     "tm-gnus3.el" "tm-gnus4.el"
-			     "tm-gd3.el")
-	   (install-elc-files path
-			      ;;"tm-gnus.elc"
-			      "tm-gnus3.elc" "tm-gnus4.elc")
+	   (install-files '("tm-gnus.el"
+			    "tm-gnus3.el" "tm-gnus4.el"
+			    "tm-gd3.el")
+			  "./" path nil 'overwrite)
+	   (install-files '(;;"tm-gnus.elc"
+			    "tm-gnus3.elc" "tm-gnus4.elc")
+			  "./" path 'move)
 	   )
-	  ((or (and running-emacs-19
-		    (<= emacs-minor-version 29))
-	       (and running-xemacs-19
-		    (<= emacs-minor-version 13))
-	       )
-	   (install-el-files path
-			     "tm-gnus.el"
-			     "tm-sgnus.el" "tm-gnus4.el"
-			     "tm-gd3.el")
-	   (install-elc-files path
-			      ;;"tm-gnus.elc"
-			      "tm-sgnus.elc" "tm-gnus4.elc")
+	  ((or (and running-emacs-19 (<= emacs-minor-version 29))
+	       (and running-xemacs-19 (<= emacs-minor-version 13)))
+	   (install-files '("tm-gnus.el" "tm-gnus4.el" "tm-gd3.el"
+			    "gnus-mime.el" "gnus-charset.el"
+			    "gnus-sum-mime.el" "gnus-art-mime.el")
+			  "./" path nil 'overwrite)
+	   (install-files '(;;"tm-gnus.elc"
+			    "tm-gnus4.elc"
+			    "gnus-mime.elc" "gnus-charset.elc"
+			    "gnus-sum-mime.elc" "gnus-art-mime.elc")
+			  "./" path 'move)
 	   )
 	  (t
-	   (install-el-files path
-			     "tm-gnus.el"
-			     "tm-sgnus.el" "tm-gnus4.el")
-	   (install-elc-files path
-			      ;;"tm-gnus.elc"
-			      "tm-sgnus.elc" "tm-gnus4.elc")
+	   (install-files '("gnus-mime.el" "gnus-charset.el"
+			    "gnus-sum-mime.el" "gnus-art-mime.el"
+			    "message-mime.el"
+			    ;;"gnus-msg-mime.el"
+			    )
+			  "./" path nil 'overwrite)
+	   (install-files '("gnus-mime.elc" "gnus-charset.elc"
+			    "gnus-sum-mime.elc" "gnus-art-mime.elc"
+			    "message-mime.elc"
+			    ;;"gnus-msg-mime.elc"
+			    )
+			  "./" path 'move)
 	   ))
     (setq command-line-args-left (cdr command-line-args-left))
     ))
+
+;;; mk-tgnus ends here