procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Lars Magne Ingebrigtsen 1996-03-12 01:29:58 +00:00
parent 261597d425
commit d33f2b3061
1 changed files with 31 additions and 31 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

62
lisp/gnus-cus.el
View file

@ -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)))))