Mercurial > emacs

changeset 15729:612faf2943db

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
If no dark magenta, use maroon. (gnus-face-dark-name-list): If no dark blue, use royal blue.
author Karl Heuer <kwzh@gnu.org>
date Fri, 19 Jul 1996 19:29:01 +0000
parents fb60ef923bb5
children bfaf5fb2a22c
files lisp/gnus-cus.el
diffstat 1 files changed, 11 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus-cus.el	Wed Jul 17 21:13:24 1996 +0000
+++ b/lisp/gnus-cus.el	Fri Jul 19 19:29:01 1996 +0000
@@ -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 @@
 	       ((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)) .