From e15dee86fdb2bfe6a06b55833f67463d8d52018b Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Tue, 12 Mar 1996 01:29:58 +0000 Subject: * gnus-cus.el: Removed font changes that would break `M-x customize'. --- lisp/gnus-cus.el | 62 ++++++++++++++++++++++++++++---------------------------- 1 file changed, 31 insertions(+), 31 deletions(-) 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))))) -- cgit v1.2.1