From e2c8506ca0044dfdb0a5f4526934bd072863eca0 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 19 Jul 1996 19:29:01 +0000 Subject: [PATCH] If no dark magenta, use maroon. (gnus-face-dark-name-list): If no dark blue, use royal blue. --- lisp/gnus-cus.el | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) 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)) . -- 2.39.5