From xemacs-m  Sat Mar 29 18:41:58 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id SAA20014
	for <xemacs-beta@xemacs.org>; Sat, 29 Mar 1997 18:41:56 -0600 (CST)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id QAA13384;
	Sat, 29 Mar 1997 16:54:47 -0800
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: Patches for XEmacs 20.1-b10 GNATS
X-Url: http://www.miranova.com/%7Esteve/
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@miranova.com>
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: multipart/mixed;
 boundary="Multipart_Sat_Mar_29_16:54:47_1997-1"
Content-Transfer-Encoding: 7bit
Date: 29 Mar 1997 16:54:47 -0800
Message-ID: <m2lo76jj1k.fsf@altair.xemacs.org>
Lines: 127
X-Mailer: Gnus v5.4.37/XEmacs 20.1(beta11)

--Multipart_Sat_Mar_29_16:54:47_1997-1
Content-Type: text/plain; charset=US-ASCII

O.K.  I think it is working now.

Patches are based on the original 20.1-b10 distribution.

You will need to move the etc/gnats/altair.xemacs.org file I previous
sent to etc/gnats/xemacs.org.  I've attached a fresh copy if you
missed it.

Index: lib-src/send-pr
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lib-src/send-pr,v
retrieving revision 1.1
diff -u -r1.1 send-pr
--- send-pr	1997/03/17 05:12:27	1.1
+++ send-pr	1997/03/30 00:43:45
@@ -24,16 +24,17 @@
 VERSION=3.101
 
 # The submitter-id for your site.
-SUBMITTER=unknown
+SUBMITTER=net
 
 # Where the GNATS directory lives, if at all.
 [ -z "$GNATS_ROOT" ] && 
 GNATS_ROOT=/usr/lib/gnats/gnats-db
 
 # The default mail address for PR submissions. 
-GNATS_ADDR=bugs@altair.xemacs.org
+GNATS_ADDR=bugs@xemacs.org
 
 # Where the gnats category tree lives.
+[ -z "$DATADIR" ] &&
 DATADIR=/usr/share
 
 # If we've been moved around, try using GCC_EXEC_PREFIX.
@@ -48,7 +49,7 @@
 DEFAULT_ORGANIZATION="XEmacs Users"
 
 # The default site to look for.
-GNATS_SITE=altair.xemacs.org
+GNATS_SITE=xemacs.org
 
 # Newer config information?
 [ -f ${GNATS_ROOT}/gnats-adm/config ] && . ${GNATS_ROOT}/gnats-adm/config

Index: lisp/gnats/send-pr.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/gnats/send-pr.el,v
retrieving revision 1.3
diff -u -r1.3 send-pr.el
--- send-pr.el	1997/03/18 03:26:45	1.3
+++ send-pr.el	1997/03/30 00:29:07
@@ -129,13 +129,14 @@
     ret))
 
 ;; const because it must match the script's value
-(defconst send-pr:datadir (or (gnats::get-config "DATADIR") "/usr/share")
+;; XEmacs, former value was (or (gnats::get-config "DATADIR") "/usr/share")
+(defconst send-pr:datadir data-directory 
   "*Where the `gnats' subdirectory containing category lists lives.")
 
 (defvar send-pr::sites nil
   "List of GNATS support sites; computed at runtime.")
 (defvar send-pr:default-site
-  (or (gnats::get-config "GNATS_SITE") "altair.xemacs.org")
+  (or (gnats::get-config "GNATS_SITE") "xemacs.org")
   "Default site to send bugs to.")
 (defvar send-pr:::site send-pr:default-site
   "The site to which a problem report is currently being submitted, or NIL
@@ -213,7 +214,7 @@
 		(not (file-readable-p file))
 		(gnats::push (list (file-name-nondirectory file))
 			    send-pr::sites))))
-	 (directory-files (format "%s/gnats" send-pr:datadir) t))
+	 (directory-files (format "%sgnats" send-pr:datadir) t))
 	(setq send-pr::sites (reverse send-pr::sites)))))
 
 (defconst send-pr::pr-buffer-name "*send-pr*"
@@ -305,6 +306,7 @@
   (let ((elt (assoc site send-pr::template-alist)))
     (if elt
 	(save-excursion (insert (cdr elt)))
+      (setenv "DATADIR" send-pr:datadir)
       (call-process "send-pr" nil t nil "-P" site)
       (save-excursion
 	(setq send-pr::template-alist
@@ -335,6 +337,7 @@
       (message "running send-pr...")
       (let ((oldpr (getenv "GNATS_ROOT")))
 	(setenv "GNATS_ROOT" gnats:root)
+	(setenv "DATADIR" send-pr:datadir)
 	(call-process-region (point-min) (point-max) "send-pr"
 			     nil err-buffer nil send-pr:::site
 			     "-b" "-f" "-")

--Multipart_Sat_Mar_29_16:54:47_1997-1
Content-Type: application/octet-stream
Content-Disposition: attachment; filename="xemacs.org"
Content-Transfer-Encoding: 7bit

pending
auxillary
configuration
documentation
frames
i18n
lisp
menubars
misc
performance
redisplay
scrollbars
tooblbars
test

--Multipart_Sat_Mar_29_16:54:47_1997-1
Content-Type: text/plain; charset=US-ASCII


-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be billed at $250/message.

--Multipart_Sat_Mar_29_16:54:47_1997-1--

