# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 837842912 0
# Node ID 14de14552296376d15df784bbcc7ab2c4a403ee8
# Parent  98d8e063fdaeb7958fa60f338169ab8a9867725b
Don't test X colors unless using X.

diff -r 98d8e063fdae -r 14de14552296 lisp/gnus-cus.el
--- a/lisp/gnus-cus.el	Sat Jul 20 04:44:09 1996 +0000
+++ b/lisp/gnus-cus.el	Sat Jul 20 06:08:32 1996 +0000
@@ -45,7 +45,9 @@
 (defvar gnus-face-dark-name-list
   (list
    ;; Not all servers have dark blue in rgb.txt.
-   (if (x-color-defined-p "dark blue") "dark blue" "royal blue")
+   (if (and (eq window-system 'x) (x-color-defined-p "dark blue"))
+       "dark blue"
+     "royal blue")
    "firebrick" "dark green" "OrangeRed" 
    "dark khaki" "dark violet" "SteelBlue4"))
 ; CornflowerBlue SeaGreen OrangeRed SteelBlue4 DeepPink3
@@ -640,7 +642,8 @@
 	       ((and mailp (eq level 3)) .
 		,(custom-face-lookup
 		  ;; Not all servers have dark magenta in rgb.txt.
-		  (if (x-color-defined-p "dark magenta")
+		  (if (and (eq window-system 'x)
+			   (x-color-defined-p "dark magenta"))
 		      "dark magenta"
 		    "maroon")
 		  nil nil t))