changeset 14804:4904b114a197

* gnus-cus.el: Removed font changes that would break `M-x customize'.
author Lars Magne Ingebrigtsen <larsi@gnus.org>
date Tue, 12 Mar 1996 01:29:58 +0000
parents cec87ade0fd2
children ad186ff7f21b
files lisp/gnus-cus.el
diffstat 1 files changed, 31 insertions(+), 31 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus-cus.el	Sun Mar 10 17:29:32 1996 +0000
+++ b/lisp/gnus-cus.el	Tue Mar 12 01:29:58 1996 +0000
@@ -34,7 +34,7 @@
 ;; by the user.
 (defun gnus-make-face (color)
   ;; Create entry for face with COLOR.
-  (custom-face-lookup color nil nil 'as-is 'as-is 'as-is))
+  (custom-face-lookup color nil nil nil nil nil))
 
 (defvar gnus-face-light-name-list
   '("light blue" "light cyan" "light yellow" "light pink"
@@ -330,38 +330,38 @@
 				      (list (list "From" nil 
 						  (custom-face-lookup 
 						   "dark blue" nil nil t t 
-						   'as-is))
+						   nil))
 					    (list "Subject" nil 
 						  (custom-face-lookup
-						   "pink" nil nil t t 'as-is))
+						   "pink" nil nil t t nil))
 					    (list "Newsgroups:.*," nil
 						  (custom-face-lookup
-						   "yellow" nil nil t t 'as-is))
+						   "yellow" nil nil t t nil))
 					    (list "" 
 						  (custom-face-lookup
-						   "cyan" nil nil t 'as-is 'as-is)
+						   "cyan" nil nil t nil nil)
 						  (custom-face-lookup
 						   "forestgreen"
-						   nil nil 'as-is t 'as-is))))
+						   nil nil nil t nil))))
 				     (t
 				      (list (list "From" nil 
 						  (custom-face-lookup
 						   "RoyalBlue"
-						   nil nil t t 'as-is))
+						   nil nil t t nil))
 					    (list "Subject" nil 
 						  (custom-face-lookup
 						   "firebrick"
-						   nil nil t t 'as-is))
+						   nil nil t t nil))
 					    (list "Newsgroups:.*," nil
 						  (custom-face-lookup
-						   "indianred" nil nil t t 'as-is))
+						   "indianred" nil nil t t nil))
 					    (list ""
 						  (custom-face-lookup
 						   "DarkGreen"
-						   nil nil t 'as-is 'as-is)
+						   nil nil t nil nil)
 						  (custom-face-lookup
 						   "DarkGreen"
-						   nil nil nil t 'as-is))))))
+						   nil nil nil t nil))))))
 		  (data ((type . repeat)
 			 (header . nil)
 			 (data (type . list)
@@ -450,63 +450,63 @@
 					((< score default) . italic)))
 				     ((eq gnus-background-mode 'dark)
 				      (list (cons '(= mark gnus-canceled-mark)
-						  (custom-face-lookup "yellow" "black" nil 'as 'as 'as))
+						  (custom-face-lookup "yellow" "black" nil nil nil nil))
 					    (cons '(and (> score default) 
 							(or (= mark gnus-dormant-mark)
 							    (= mark gnus-ticked-mark)))
-						  (custom-face-lookup "pink" nil nil t 'as 'as))
+						  (custom-face-lookup "pink" nil nil t nil nil))
 					    (cons '(and (< score default) 
 							(or (= mark gnus-dormant-mark)
 							    (= mark gnus-ticked-mark)))
-						  (custom-face-lookup "pink" nil nil 'as t 'as))
+						  (custom-face-lookup "pink" nil nil nil t nil))
 					    (cons '(or (= mark gnus-dormant-mark)
 						       (= mark gnus-ticked-mark))
-						  (custom-face-lookup "pink" nil nil 'as 'as 'as))
+						  (custom-face-lookup "pink" nil nil nil nil nil))
 
 					    (cons '(and (> score default) (= mark gnus-ancient-mark))
-						  (custom-face-lookup "dark blue" nil nil t 'as 'as))
+						  (custom-face-lookup "dark blue" nil nil t nil nil))
 					    (cons '(and (< score default) (= mark gnus-ancient-mark))
-						  (custom-face-lookup "SkyBlue" nil nil 'as t 'as))
+						  (custom-face-lookup "SkyBlue" nil nil nil t nil))
 					    (cons '(= mark gnus-ancient-mark)
-						  (custom-face-lookup "SkyBlue" nil nil 'as 'as 'as))
+						  (custom-face-lookup "SkyBlue" nil nil nil nil nil))
 
 					    (cons '(and (> score default) (= mark gnus-unread-mark))
-						  (custom-face-lookup "white" nil nil t 'as 'as))
+						  (custom-face-lookup "white" nil nil t nil nil))
 					    (cons '(and (< score default) (= mark gnus-unread-mark))
-						  (custom-face-lookup "white" nil nil 'as t 'as))
+						  (custom-face-lookup "white" nil nil nil t nil))
 					    (cons '(= mark gnus-unread-mark)
-						  (custom-face-lookup "white" nil nil 'as 'as 'as))
+						  (custom-face-lookup "white" nil nil nil nil nil))
 
 					    (cons '(> score default) 'bold)
 					    (cons '(< score default) 'italic)))
 				     (t
 				      (list (cons '(= mark gnus-canceled-mark)
-						  (custom-face-lookup "yellow" "black" nil 'as 'as 'as))
+						  (custom-face-lookup "yellow" "black" nil nil nil nil))
 					    (cons '(and (> score default) 
 							(or (= mark gnus-dormant-mark)
 							    (= mark gnus-ticked-mark)))
-						  (custom-face-lookup "firebrick" nil nil t 'as 'as))
+						  (custom-face-lookup "firebrick" nil nil t nil nil))
 					    (cons '(and (< score default) 
 							(or (= mark gnus-dormant-mark)
 							    (= mark gnus-ticked-mark)))
-						  (custom-face-lookup "firebrick" nil nil 'as t 'as))
+						  (custom-face-lookup "firebrick" nil nil nil t nil))
 					    (cons '(or (= mark gnus-dormant-mark)
 						       (= mark gnus-ticked-mark))
-						  (custom-face-lookup "firebrick" nil nil 'as 'as 'as))
+						  (custom-face-lookup "firebrick" nil nil nil nil nil))
 
 					    (cons '(and (> score default) (= mark gnus-ancient-mark))
-						  (custom-face-lookup "RoyalBlue" nil nil t 'as 'as))
+						  (custom-face-lookup "RoyalBlue" nil nil t nil nil))
 					    (cons '(and (< score default) (= mark gnus-ancient-mark))
-						  (custom-face-lookup "RoyalBlue" nil nil 'as t 'as))
+						  (custom-face-lookup "RoyalBlue" nil nil nil t nil))
 					    (cons '(= mark gnus-ancient-mark)
-						  (custom-face-lookup "RoyalBlue" nil nil 'as 'as 'as))
+						  (custom-face-lookup "RoyalBlue" nil nil nil nil nil))
 
 					    (cons '(and (> score default) (/= mark gnus-unread-mark))
-						  (custom-face-lookup "DarkGreen" nil nil t 'as 'as))
+						  (custom-face-lookup "DarkGreen" nil nil t nil nil))
 					    (cons '(and (< score default) (/= mark gnus-unread-mark))
-						  (custom-face-lookup "DarkGreen" nil nil 'as t 'as))
+						  (custom-face-lookup "DarkGreen" nil nil nil t nil))
 					    (cons '(/= mark gnus-unread-mark)
-						  (custom-face-lookup "DarkGreen" nil nil 'as 'as 'as))
+						  (custom-face-lookup "DarkGreen" nil nil nil nil nil))
 
 					    (cons '(> score default) 'bold)
 					    (cons '(< score default) 'italic)))))