From: yamaoka <yamaoka>
Date: Mon, 1 Mar 1999 07:45:30 +0000 (+0000)
Subject: * gnus.el (gnus-revision-number): Increment to 02.
X-Git-Tag: t-gnus-6_10_061-02~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=17511f3283fe030eb703857faa53c38468877abb;p=elisp%2Fgnus.git-

* gnus.el (gnus-revision-number): Increment to 02.
* dgnushack.el (dgnushack-install-package): Don't refer to
`configure-package-path'. Use `early-packages', `late-packages' or
`last-packages' instead.
---

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 54debf1..e2b30e4 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -90,7 +90,12 @@ Modify to suit your needs."))
 
 ;; Avoid byte-compile warnings.
 (defvar gnus-product-name)
-(defvar configure-package-path)
+(defvar early-package-load-path)
+(defvar early-packages)
+(defvar last-package-load-path)
+(defvar last-packages)
+(defvar late-package-load-path)
+(defvar late-packages)
 
 (defconst dgnushack-info-file-regexp
   (concat "^\\(gnus\\|message\\|emacs-mime\\|gnus-ja\\|message-ja\\)"
@@ -138,21 +143,29 @@ Modify to suit your needs."))
       (write-file (concat "../MANIFEST." product-name)))))
 
 (defun dgnushack-install-package ()
-  (let* ((package-dir
-	  (file-name-as-directory
-	   (or (car command-line-args-left)
-	       (car configure-package-path)
-	       (error "%s" "
+  (let ((package-dir (car command-line-args-left))
+	dirs info-dir pkginfo-dir product-name lisp-dir manifest files)
+    (unless package-dir
+      (when (boundp 'early-packages)
+	(setq dirs (delq nil (append (when early-package-load-path
+				       early-packages)
+				     (when late-package-load-path
+				       late-packages)
+				     (when last-package-load-path
+				       last-packages))))
+	(while (and dirs (not package-dir))
+	  (when (file-exists-p (car dirs))
+	    (setq package-dir (car dirs)
+		  dirs (cdr dirs))))))
+    (unless package-dir
+      (error "%s" "
 You must specify the name of the package path as follows:
 
 % make install-package PACKAGEDIR=/usr/local/lib/xemacs/xemacs-packages
-
-                        - GAME OVER -
 "
-		      ))))
-	 (info-dir (expand-file-name "info/" package-dir))
-	 (pkginfo-dir (expand-file-name "pkginfo/" package-dir))
-	 product-name lisp-dir manifest files)
+	     ))
+    (setq info-dir (expand-file-name "info/" package-dir)
+	  pkginfo-dir (expand-file-name "pkginfo/" package-dir))
     (require 'gnus)
     (setq product-name (downcase gnus-product-name)
 	  lisp-dir (expand-file-name (concat "lisp/" product-name "/")
diff --git a/lisp/gnus.el b/lisp/gnus.el
index 2823cc4..33fa506 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -267,7 +267,7 @@ is restarted, and sometimes reloaded."
 (defconst gnus-version-number "6.10.061"
   "Version number for this version of gnus.")
 
-(defconst gnus-revision-number "01"
+(defconst gnus-revision-number "02"
   "Revision number for this version of gnus.")
 
 (defconst gnus-original-version-number "0.79"