* mail/emacsbug.el (report-emacs-bug): Catch error that x-server-vendor

  and x-server-version may throw.

lisp/ChangeLog

+2004-11-23  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
+
+	* mail/emacsbug.el (report-emacs-bug): Catch error that x-server-vendor
+	and x-server-version may throw.
+
 2004-11-23  Kim F. Storm  <storm@cua.dk>
 
 	* subr.el (substitute-key-definition-key): Optimize.  Don't

lisp/mail/emacsbug.el

@@ -129,8 +129,10 @@ usually do not have translators to read other languages for them.\n\n")
 
     (insert "In " (emacs-version) "\n")
     (if (fboundp 'x-server-vendor)
-	(insert "Distributor `" (x-server-vendor) "', version "
-		(mapconcat 'number-to-string (x-server-version) ".") "\n"))
+	(condition-case nil
+	    (insert "Distributor `" (x-server-vendor) "', version "
+		    (mapconcat 'number-to-string (x-server-version) ".") "\n")
+	  (error t)))
     (if (and system-configuration-options
 	     (not (equal system-configuration-options "")))
 	(insert "configured using `configure "