X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnuserv.el;h=04bf42aceca382bb2aaed36269d3961540f8c975;hb=98a6e4055a1fa624c592ac06f79287d55196ca37;hp=8da403ca5f9c1a023e8e43761fc0702ed093a355;hpb=afa9772e3fcbb4e80e3e4cfd1a40b4fccc6d08b8;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/gnuserv.el b/lisp/gnuserv.el
index 8da403c..04bf42a 100644
--- a/lisp/gnuserv.el
+++ b/lisp/gnuserv.el
@@ -348,11 +348,13 @@ visual screen.  Totally visible frames are preferred.  If none found, return nil
 	       ;; In case of an error, write the description to the
 	       ;; client, and then signal it.
 	       (error (setq gnuserv-string "")
-		      (gnuserv-write-to-client gnuserv-current-client oops)
+		      (when gnuserv-current-client
+			(gnuserv-write-to-client gnuserv-current-client oops))
 		      (setq gnuserv-current-client nil)
 		      (signal (car oops) (cdr oops)))
 	       (quit (setq gnuserv-string "")
-		     (gnuserv-write-to-client gnuserv-current-client oops)
+		     (when gnuserv-current-client
+		       (gnuserv-write-to-client gnuserv-current-client oops))
 		     (setq gnuserv-current-client nil)
 		     (signal 'quit nil)))
 	     (setq gnuserv-string "")))