* 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 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -90,7 +90,12 @@ Modify to suit your needs."))
 \f
 ;; 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 (file)
--- 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"