From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 19 Jul 1996 19:29:01 +0000 (+0000)
Subject: If no dark magenta, use maroon.
X-Git-Tag: emacs-19.34~133
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e2c8506ca0044dfdb0a5f4526934bd072863eca0;p=emacs.git

If no dark magenta, use maroon.
(gnus-face-dark-name-list): If no dark blue, use royal blue.
---

diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el
index 37a30b00a84..ee78453cd8d 100644
--- a/lisp/gnus-cus.el
+++ b/lisp/gnus-cus.el
@@ -43,8 +43,11 @@
     "turquoise"))
 
 (defvar gnus-face-dark-name-list
-  '("dark blue" "firebrick" "dark green" "OrangeRed" 
-    "dark khaki" "dark violet" "SteelBlue4"))
+  (list
+   ;; Not all servers have dark blue in rgb.txt.
+   (if (x-color-defined-p "dark blue") "dark blue" "royal blue")
+   "firebrick" "dark green" "OrangeRed" 
+   "dark khaki" "dark violet" "SteelBlue4"))
 ; CornflowerBlue SeaGreen OrangeRed SteelBlue4 DeepPink3
 ; DarkOlviveGreen4 
 
@@ -635,7 +638,12 @@ ticked: The number of ticked articles.")
 	       ((and mailp (eq level 2)) .
 		,(custom-face-lookup "HotPink3" nil nil t))
 	       ((and mailp (eq level 3)) .
-		,(custom-face-lookup "dark magenta" nil nil t))
+		,(custom-face-lookup
+		  ;; Not all servers have dark magenta in rgb.txt.
+		  (if (x-color-defined-p "dark magenta")
+		      "dark magenta"
+		    "maroon")
+		  nil nil t))
 	       ((and mailp (eq level 4)) .
 		,(custom-face-lookup "DeepPink4" nil nil t))
 	       ((and mailp (> level 4)) .