From: yamaoka <yamaoka>
Date: Wed, 24 Feb 1999 03:29:57 +0000 (+0000)
Subject: * gnus.el (gnus-revision-number): Increment to 03.
X-Git-Tag: t-gnus-6_10_059-03~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=81f09e59b95243d0b1142f461fdf171dab7a3ea1;p=elisp%2Fgnus.git-

* gnus.el (gnus-revision-number): Increment to 03.
* Makefile.in (all, total): Remove "auto-autoloads.el" and "custom-load.el"
as well.
* dgnushack.el (dgnushack-install-package): Remove extra files in destination
lisp directory.
(dgnushack-make-package): Don't generate "_pkg.el" file; don't remove
"auto-autoloads.el*" files.
(dgnushack-compile): Don't remove "_pkg.el" from the list.
---

diff --git a/lisp/Makefile.in b/lisp/Makefile.in
index 9edc426..11fffaf 100644
--- a/lisp/Makefile.in
+++ b/lisp/Makefile.in
@@ -14,7 +14,8 @@ VPATH = @srcdir@
 PACKAGEDIR =
 
 all total:
-	rm -f *.elc ; $(EMACS) $(FLAGS) -f dgnushack-compile
+	rm -f *.elc auto-autoloads.el custom-load.el ; \
+	$(EMACS) $(FLAGS) -f dgnushack-compile
 
 warn:
 	rm -f *.elc ; $(EMACS) $(FLAGS) --eval '(dgnushack-compile t)' 2>&1 | egrep -v "variable G|inhibit-point-motion-hooks|coding-system|temp-results|variable gnus|variable nn|scroll-in-place|deactivate-mark|filladapt-mode|byte-code-function-p|print-quoted|ps-right-header|ps-left-header|article-inhibit|print-escape|ssl-program-arguments|message-log-max"
diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 07f72fe..61cd787 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -2,6 +2,7 @@
 ;; Copyright (C) 1994,95,96,97,98,99 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
+;;	Katsumi Yamaoka <yamaoka@jpl.org>
 ;; Version: 4.19
 ;; Keywords: news, path
 
@@ -60,7 +61,7 @@ You also then need to add the following to the lisp/dgnushack.el file:
      (push \"~/lisp/custom\" load-path)
 
 Modify to suit your needs."))
-  (let ((files (delete "_pkg.el" (directory-files "." nil "^[^=].*\\.el$")))
+  (let ((files (directory-files "." nil "^[^=].*\\.el$"))
 	(xemacs (string-match "XEmacs" emacs-version))
 	;;(byte-compile-generate-call-tree t)
 	file elc)
@@ -98,32 +99,10 @@ Modify to suit your needs."))
   "^\\(gnus\\|message\\|emacs-mime\\|gnus-ja\\|message-ja\\)\\(-[0-9]+\\)?$")
 
 (defun dgnushack-make-package ()
-  (mapcar
-   (lambda (file)
-     (condition-case nil
-	 (delete-file file)
-       (error nil)))
-   '("auto-autoloads.el" "auto-autoloads.elc"))
-
   (require 'gnus)
-  (let ((version
-	 (split-string
-	  (if (boundp 'gnus-revision-number)
-	      (concat gnus-version-number "." gnus-revision-number)
-	    gnus-version-number)
-	  "\\."))
-	(product-name (downcase gnus-product-name))
-	lisp-dir make-backup-files)
-    (setq version (apply 'concat (car version) "." (cdr version))
-	  lisp-dir (concat "lisp/" product-name "/"))
-
-    (with-temp-buffer
-      (insert ";;;###autoload
-\(package-provide '" product-name "
-		 :version " version "
-		 :type 'regular)
-")
-      (write-file "_pkg.el"))
+  (let* ((product-name (downcase gnus-product-name))
+	 (lisp-dir (concat "lisp/" product-name "/"))
+	 make-backup-files)
 
     (message "Updating autoloads for directory %s..." default-directory)
     (let ((generated-autoload-file "auto-autoloads.el")
@@ -165,7 +144,7 @@ Modify to suit your needs."))
 			     (car package-path)))))
 	 (info-dir (expand-file-name "info/" package-dir))
 	 (pkginfo-dir (expand-file-name "pkginfo/" package-dir))
-	 product-name lisp-dir manifest)
+	 product-name lisp-dir manifest files)
     (require 'gnus)
     (setq product-name (downcase gnus-product-name)
 	  lisp-dir (expand-file-name (concat "lisp/" product-name "/")
@@ -179,11 +158,21 @@ Modify to suit your needs."))
     (unless (file-directory-p pkginfo-dir)
       (make-directory pkginfo-dir))
 
+    (setq files (sort (directory-files "." nil "\\.elc?$") 'string-lessp))
+    (mapcar
+     (lambda (file)
+       (unless (member file files)
+	 (setq file (expand-file-name file lisp-dir))
+	 (message "Removing %s..." file)
+	 (condition-case nil
+	     (delete-file file)
+	   (error nil))))
+     (directory-files lisp-dir nil nil nil t))
     (mapcar
      (lambda (file)
        (message "Copying %s to %s..." file lisp-dir)
        (copy-file file (expand-file-name file lisp-dir) t t))
-     (sort (directory-files "." nil "\\.elc?$") 'string-lessp))
+     files)
 
     (mapcar
      (lambda (file)
diff --git a/lisp/gnus.el b/lisp/gnus.el
index 9cff939..27f163c 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -267,7 +267,7 @@ is restarted, and sometimes reloaded."
 (defconst gnus-version-number "6.10.059"
   "Version number for this version of gnus.")
 
-(defconst gnus-revision-number "02"
+(defconst gnus-revision-number "03"
   "Revision number for this version of gnus.")
 
 (defconst gnus-original-version-number "0.77"