* gnus.el (gnus-revision-number): Increment to 05.

* dgnushack.el (dgnushack-add-info-suffix-maybe): Chdir ../texi first.
(dgnushack-install-package): Don't refer to `package-path'; error if the
package path does not found.
(TopLevel): Don't define `gnus-revision-number', `gnus-version-number' and
`package-path'.

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 6caab34..54debf1 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -89,11 +89,8 @@ Modify to suit your needs."))
 
 \f
 ;; Avoid byte-compile warnings.
-(defvar gnus-revision-number)
-(defvar gnus-version-number)
 (defvar gnus-product-name)
 (defvar configure-package-path)
-(defvar package-path)
 
 (defconst dgnushack-info-file-regexp
   (concat "^\\(gnus\\|message\\|emacs-mime\\|gnus-ja\\|message-ja\\)"
@@ -141,11 +138,18 @@ 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)
-                          (if (boundp 'configure-package-path)
-                              (car configure-package-path)
-                            (car package-path)))))
+  (let* ((package-dir
+         (file-name-as-directory
+          (or (car command-line-args-left)
+              (car configure-package-path)
+              (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)
@@ -194,7 +198,8 @@ Modify to suit your needs."))
     (message "Done")))
 
 (defun dgnushack-add-info-suffix-maybe ()
-  ;; This function must be invoked from texi directory.
+  ;; This function must be invoked from lisp directory.
+  (setq default-directory "../texi/")
   (let ((coding-system-for-read 'raw-text)
        (coding-system-for-write 'raw-text)
        (files (directory-files "." nil dgnushack-texi-file-regexp))

diff --git a/lisp/gnus.el b/lisp/gnus.el
index e61c166..b7a7901 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.059"
   "Version number for this version of gnus.")
 
-(defconst gnus-revision-number "04"
+(defconst gnus-revision-number "05"
   "Revision number for this version of gnus.")
 
 (defconst gnus-original-version-number "0.77"