From: yamaoka <yamaoka>
Date: Fri, 18 Oct 2002 05:19:02 +0000 (+0000)
Subject: * dgnushack.el (dgnushack-dont-compile-files): New constant containing almost
X-Git-Tag: t-gnus-6_15_8-05-quimby~26
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=de99a64ee98cae22675802896cca56080b46fb7c;p=elisp%2Fgnus.git-

* dgnushack.el (dgnushack-dont-compile-files): New constant containing almost
 all mm*.el.
(dgnushack-compile): Don't byte-compile the file in
`dgnushack-dont-compile-files'.
---

diff --git a/ChangeLog b/ChangeLog
index f01b561..076b830 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2002-10-18  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/dgnushack.el (dgnushack-dont-compile-files): New constant
+	containing almost all mm*.el.
+	(dgnushack-compile): Don't byte-compile the file in
+	`dgnushack-dont-compile-files'.
+
 2002-10-09  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* lisp/gnus-vers.el (gnus-revision-number): Increment to 04.
diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index e3b3e53..4cccaae 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -544,6 +544,12 @@ Try to re-configure with --with-addpath=FLIM_PATH and run make again.
   "Print name of files which will be installed."
   (princ (mapconcat 'identity dgnushack-exporting-files " ")))
 
+(defconst dgnushack-dont-compile-files
+  '("mm-bodies.el" "mm-decode.el" "mm-encode.el" "mm-extern.el"
+    "mm-partial.el" "mm-url.el" "mm-uu.el" "mm-view.el" "mml-sec.el"
+    "mml-smime.el" "mml.el" "mml1991.el" "mml2015.el")
+  "Files which should not be byte-compiled.")
+
 (defun dgnushack-compile (&optional warn)
   ;;(setq byte-compile-dynamic t)
   (unless warn
@@ -569,20 +575,22 @@ Modify to suit your needs."))
 	       (file-newer-than-file-p file elc))
       (delete-file elc)))
 
+  ;; Avoid barfing (from gnus-xmas) because the etc directory is not yet
+  ;; installed.
+  (when (featurep 'xemacs)
+    (setq gnus-xmas-glyph-directory "dummy"))
+
   (let ((files dgnushack-exporting-files)
 	;;(byte-compile-generate-call-tree t)
 	file elc)
-    ;; Avoid barfing (from gnus-xmas) because the etc directory is not yet
-    ;; installed.
-    (when (featurep 'xemacs)
-      (setq gnus-xmas-glyph-directory "dummy"))
     (while (setq file (pop files))
-      (setq file (expand-file-name file srcdir))
-      (when (or (not (file-exists-p
-		      (setq elc (concat (file-name-nondirectory file) "c"))))
-		(file-newer-than-file-p file elc))
-	(ignore-errors
-	  (byte-compile-file file))))))
+      (unless (member file dgnushack-dont-compile-files)
+	(setq file (expand-file-name file srcdir))
+	(when (or (not (file-exists-p
+			(setq elc (concat (file-name-nondirectory file) "c"))))
+		  (file-newer-than-file-p file elc))
+	  (ignore-errors
+	    (byte-compile-file file)))))))
 
 (defun dgnushack-recompile ()
   (require 'gnus)