From xemacs-m  Fri Jun 27 10:24:17 1997
Received: from cnri.reston.va.us (cnri.CNRI.Reston.VA.US [132.151.1.1])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id KAA00415
	for <xemacs-beta@xemacs.org>; Fri, 27 Jun 1997 10:24:16 -0500 (CDT)
Received: from newcnri.CNRI.Reston.Va.US (newcnri [132.151.1.84]) by cnri.reston.va.us (8.8.5/8.7.3) with SMTPid LAA10762 for <xemacs-beta@xemacs.org>; Fri, 27 Jun 1997 11:27:26 -0400 (EDT)
Received: from anthem.CNRI.Reston.Va.US by newcnri.CNRI.Reston.Va.US (SMI-8.6/SMI-SVR4)
	id LAA02917; Fri, 27 Jun 1997 11:28:28 -0400
Received: by anthem.CNRI.Reston.Va.US (SMI-8.6/SMI-SVR4)
	id LAA01320; Fri, 27 Jun 1997 11:27:32 -0400
Date: Fri, 27 Jun 1997 11:27:32 -0400
Message-Id: <199706271527.LAA01320@anthem.CNRI.Reston.Va.US>
From: "Barry A. Warsaw" <bwarsaw@CNRI.Reston.Va.US>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="EVrYntFhQ5"
Content-Transfer-Encoding: 7bit
To: xemacs-beta@xemacs.org
Subject: gnuserv.el patch
X-Mailer: VM 6.32 under 20.3 "Sofia" XEmacs  Lucid (beta9)
Reply-To: bwarsaw@python.org
X-Attribution: BAW
X-Oblique-Strategy: Imagine how it would taste
X-Url: http://www.python.org/~bwarsaw


--EVrYntFhQ5
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit


Two problems with gnuserv.el in Sofia.  First gnuserv-rcs-version is
highly evil so I removed it.  Second, in gnuserv-check-device, client
is not a list and so the call to gnuserv-kill-client shouldn't try to
car it.

-Barry



--EVrYntFhQ5
Content-Type: text/plain
Content-Description: packages/gnuserv.el patch
Content-Disposition: inline;
	filename="p1.txt"
Content-Transfer-Encoding: 7bit

*** gnuserv.el	1997/06/27 15:13:59	1.1
--- gnuserv.el	1997/06/27 15:14:45
***************
*** 80,86 ****
  ;;; Code:
  
- (defconst gnuserv-rcs-version
-   "gnuserv.el,v 1.1 1997/06/27 15:13:59 bwarsaw Exp")
- 
  (defgroup gnuserv nil
    "The gnuserv suite of programs to talk to Emacs from outside."
--- 80,83 ----
***************
*** 544,548 ****
  	;; killing the device, because it would cause a device-dead
  	;; error when `delete-device' tries to do the job later.
! 	(gnuserv-kill-client (car client) t))))
    (callf2 delq device gnuserv-devices))
  
--- 541,545 ----
  	;; killing the device, because it would cause a device-dead
  	;; error when `delete-device' tries to do the job later.
! 	(gnuserv-kill-client client t))))
    (callf2 delq device gnuserv-devices))
  

--EVrYntFhQ5--

