From xemacs-m  Tue Apr 22 15:30:27 1997
Received: from frege.math.ethz.ch (root@frege-d-math-north-g-west.math.ethz.ch [129.132.145.3])
	by xemacs.org (8.8.5/8.8.5) with SMTP id PAA18092
	for <xemacs-beta@xemacs.org>; Tue, 22 Apr 1997 15:30:23 -0500 (CDT)
Received: from midget.math.ethz.ch (vroonhof@midget [129.132.145.4]) by frege.math.ethz.ch (8.6.12/Main-STAT-mailer) with ESMTP id WAA05612 for <xemacs-beta@xemacs.org>; Tue, 22 Apr 1997 22:29:35 +0200
Received: (vroonhof@localhost) by midget.math.ethz.ch (8.6.12/D-MATH-client) id WAA06104; Tue, 22 Apr 1997 22:29:09 +0200
Sender: vroonhof@math.ethz.ch
To: xemacs-beta@xemacs.org
Subject: Fix for gnuserv.el, kill-buffer problem
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII
From: Jan Vroonhof <vroonhof@math.ethz.ch>
Date: 22 Apr 1997 22:29:09 +0200
Message-ID: <byiv1en6ne.fsf@midget.math.ethz.ch>
Lines: 17
X-Mailer: Gnus v5.4.37/XEmacs 19.15


This fixes the server-kill-buffer always returns nil bug:

--- gnuserv.el~	Tue Apr 22 19:50:29 1997
+++ gnuserv.el	Tue Apr 22 21:52:52 1997
@@ -461,7 +461,8 @@
 		    nil			;yep
 		  (server-write-to-client (car client) nil) ;nope, tell client
 		  (setq server-clients (delq client server-clients))))
-	      (setq old-clients (cdr old-clients))))))))
+	      (setq old-clients (cdr old-clients)))
+	    t)))))
 
 
 ;; Ask before killing a server buffer.


