From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Tue, 12 Mar 1996 01:29:58 +0000 (+0000)
Subject: * gnus-cus.el: Removed font changes that would break `M-x customize'.
X-Git-Tag: emacs-19.34~1056
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d33f2b30617424d64afd8124b74ae7aaf12fe047;p=emacs.git

* gnus-cus.el: Removed font changes that would break `M-x customize'.
---

diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el
index 32e0c0c431b..7a808ccf582 100644
--- a/lisp/gnus-cus.el
+++ b/lisp/gnus-cus.el
@@ -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 @@ alone.")
 				      (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 @@ mark:    The article's mark.")
 					((< 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)))))