From 23b3fb4943dce1becea6efd75f9f988e50bbed52 Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Fri, 26 Feb 1999 05:09:19 +0000
Subject: [PATCH] * 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'.

---
 lisp/dgnushack.el |   23 ++++++++++++++---------
 lisp/gnus.el      |    2 +-
 2 files changed, 15 insertions(+), 10 deletions(-)

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 6caab34..54debf1 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -89,11 +89,8 @@ Modify to suit your needs."))
 
 
 ;; 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
--- 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"
-- 
1.7.10.4