Commit 7cbcc1db authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

Use custom-asis instead of as-is.

parent 46be15a4
...@@ -34,7 +34,7 @@ ...@@ -34,7 +34,7 @@
;; by the user. ;; by the user.
(defun gnus-make-face (color) (defun gnus-make-face (color)
;; Create entry for face with 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 'custom-asis 'custom-asis 'custom-asis))
(defvar gnus-face-light-name-list (defvar gnus-face-light-name-list
'("light blue" "light cyan" "light yellow" "light pink" '("light blue" "light cyan" "light yellow" "light pink"
...@@ -330,38 +330,38 @@ alone.") ...@@ -330,38 +330,38 @@ alone.")
(list (list "From" nil (list (list "From" nil
(custom-face-lookup (custom-face-lookup
"dark blue" nil nil t t "dark blue" nil nil t t
'as-is)) 'custom-asis))
(list "Subject" nil (list "Subject" nil
(custom-face-lookup (custom-face-lookup
"pink" nil nil t t 'as-is)) "pink" nil nil t t 'custom-asis))
(list "Newsgroups:.*," nil (list "Newsgroups:.*," nil
(custom-face-lookup (custom-face-lookup
"yellow" nil nil t t 'as-is)) "yellow" nil nil t t 'custom-asis))
(list "" (list ""
(custom-face-lookup (custom-face-lookup
"cyan" nil nil t 'as-is 'as-is) "cyan" nil nil t 'custom-asis 'custom-asis)
(custom-face-lookup (custom-face-lookup
"forestgreen" "forestgreen"
nil nil 'as-is t 'as-is)))) nil nil 'custom-asis t 'custom-asis))))
(t (t
(list (list "From" nil (list (list "From" nil
(custom-face-lookup (custom-face-lookup
"RoyalBlue" "RoyalBlue"
nil nil t t 'as-is)) nil nil t t 'custom-asis))
(list "Subject" nil (list "Subject" nil
(custom-face-lookup (custom-face-lookup
"firebrick" "firebrick"
nil nil t t 'as-is)) nil nil t t 'custom-asis))
(list "Newsgroups:.*," nil (list "Newsgroups:.*," nil
(custom-face-lookup (custom-face-lookup
"indianred" nil nil t t 'as-is)) "indianred" nil nil t t 'custom-asis))
(list "" (list ""
(custom-face-lookup (custom-face-lookup
"DarkGreen" "DarkGreen"
nil nil t 'as-is 'as-is) nil nil t 'custom-asis 'custom-asis)
(custom-face-lookup (custom-face-lookup
"DarkGreen" "DarkGreen"
nil nil nil t 'as-is)))))) nil nil nil t 'custom-asis))))))
(data ((type . repeat) (data ((type . repeat)
(header . nil) (header . nil)
(data (type . list) (data (type . list)
...@@ -450,63 +450,63 @@ mark: The article's mark.") ...@@ -450,63 +450,63 @@ mark: The article's mark.")
((< score default) . italic))) ((< score default) . italic)))
((eq gnus-background-mode 'dark) ((eq gnus-background-mode 'dark)
(list (cons '(= mark gnus-canceled-mark) (list (cons '(= mark gnus-canceled-mark)
(custom-face-lookup "yellow" "black" nil 'as-is 'as-is 'as-is)) (custom-face-lookup "yellow" "black" nil 'custom-asis 'custom-asis 'custom-asis))
(cons '(and (> score default) (cons '(and (> score default)
(or (= mark gnus-dormant-mark) (or (= mark gnus-dormant-mark)
(= mark gnus-ticked-mark))) (= mark gnus-ticked-mark)))
(custom-face-lookup "pink" nil nil t 'as-is 'as-is)) (custom-face-lookup "pink" nil nil t 'custom-asis 'custom-asis))
(cons '(and (< score default) (cons '(and (< score default)
(or (= mark gnus-dormant-mark) (or (= mark gnus-dormant-mark)
(= mark gnus-ticked-mark))) (= mark gnus-ticked-mark)))
(custom-face-lookup "pink" nil nil 'as-is t 'as-is)) (custom-face-lookup "pink" nil nil 'custom-asis t 'custom-asis))
(cons '(or (= mark gnus-dormant-mark) (cons '(or (= mark gnus-dormant-mark)
(= mark gnus-ticked-mark)) (= mark gnus-ticked-mark))
(custom-face-lookup "pink" nil nil 'as-is 'as-is 'as-is)) (custom-face-lookup "pink" nil nil 'custom-asis 'custom-asis 'custom-asis))
(cons '(and (> score default) (= mark gnus-ancient-mark)) (cons '(and (> score default) (= mark gnus-ancient-mark))
(custom-face-lookup "dark blue" nil nil t 'as-is 'as-is)) (custom-face-lookup "dark blue" nil nil t 'custom-asis 'custom-asis))
(cons '(and (< score default) (= mark gnus-ancient-mark)) (cons '(and (< score default) (= mark gnus-ancient-mark))
(custom-face-lookup "SkyBlue" nil nil 'as-is t 'as-is)) (custom-face-lookup "SkyBlue" nil nil 'custom-asis t 'custom-asis))
(cons '(= mark gnus-ancient-mark) (cons '(= mark gnus-ancient-mark)
(custom-face-lookup "SkyBlue" nil nil 'as-is 'as-is 'as-is)) (custom-face-lookup "SkyBlue" nil nil 'custom-asis 'custom-asis 'custom-asis))
(cons '(and (> score default) (= mark gnus-unread-mark)) (cons '(and (> score default) (= mark gnus-unread-mark))
(custom-face-lookup "white" nil nil t 'as-is 'as-is)) (custom-face-lookup "white" nil nil t 'custom-asis 'custom-asis))
(cons '(and (< score default) (= mark gnus-unread-mark)) (cons '(and (< score default) (= mark gnus-unread-mark))
(custom-face-lookup "white" nil nil 'as-is t 'as-is)) (custom-face-lookup "white" nil nil 'custom-asis t 'custom-asis))
(cons '(= mark gnus-unread-mark) (cons '(= mark gnus-unread-mark)
(custom-face-lookup "white" nil nil 'as-is 'as-is 'as-is)) (custom-face-lookup "white" nil nil 'custom-asis 'custom-asis 'custom-asis))
(cons '(> score default) 'bold) (cons '(> score default) 'bold)
(cons '(< score default) 'italic))) (cons '(< score default) 'italic)))
(t (t
(list (cons '(= mark gnus-canceled-mark) (list (cons '(= mark gnus-canceled-mark)
(custom-face-lookup "yellow" "black" nil 'as-is 'as-is 'as-is)) (custom-face-lookup "yellow" "black" nil 'custom-asis 'custom-asis 'custom-asis))
(cons '(and (> score default) (cons '(and (> score default)
(or (= mark gnus-dormant-mark) (or (= mark gnus-dormant-mark)
(= mark gnus-ticked-mark))) (= mark gnus-ticked-mark)))
(custom-face-lookup "firebrick" nil nil t 'as-is 'as-is)) (custom-face-lookup "firebrick" nil nil t 'custom-asis 'custom-asis))
(cons '(and (< score default) (cons '(and (< score default)
(or (= mark gnus-dormant-mark) (or (= mark gnus-dormant-mark)
(= mark gnus-ticked-mark))) (= mark gnus-ticked-mark)))
(custom-face-lookup "firebrick" nil nil 'as-is t 'as-is)) (custom-face-lookup "firebrick" nil nil 'custom-asis t 'custom-asis))
(cons '(or (= mark gnus-dormant-mark) (cons '(or (= mark gnus-dormant-mark)
(= mark gnus-ticked-mark)) (= mark gnus-ticked-mark))
(custom-face-lookup "firebrick" nil nil 'as-is 'as-is 'as-is)) (custom-face-lookup "firebrick" nil nil 'custom-asis 'custom-asis 'custom-asis))
(cons '(and (> score default) (= mark gnus-ancient-mark)) (cons '(and (> score default) (= mark gnus-ancient-mark))
(custom-face-lookup "RoyalBlue" nil nil t 'as-is 'as-is)) (custom-face-lookup "RoyalBlue" nil nil t 'custom-asis 'custom-asis))
(cons '(and (< score default) (= mark gnus-ancient-mark)) (cons '(and (< score default) (= mark gnus-ancient-mark))
(custom-face-lookup "RoyalBlue" nil nil 'as-is t 'as-is)) (custom-face-lookup "RoyalBlue" nil nil 'custom-asis t 'custom-asis))
(cons '(= mark gnus-ancient-mark) (cons '(= mark gnus-ancient-mark)
(custom-face-lookup "RoyalBlue" nil nil 'as-is 'as-is 'as-is)) (custom-face-lookup "RoyalBlue" nil nil 'custom-asis 'custom-asis 'custom-asis))
(cons '(and (> score default) (/= mark gnus-unread-mark)) (cons '(and (> score default) (/= mark gnus-unread-mark))
(custom-face-lookup "DarkGreen" nil nil t 'as-is 'as-is)) (custom-face-lookup "DarkGreen" nil nil t 'custom-asis 'custom-asis))
(cons '(and (< score default) (/= mark gnus-unread-mark)) (cons '(and (< score default) (/= mark gnus-unread-mark))
(custom-face-lookup "DarkGreen" nil nil 'as-is t 'as-is)) (custom-face-lookup "DarkGreen" nil nil 'custom-asis t 'custom-asis))
(cons '(/= mark gnus-unread-mark) (cons '(/= mark gnus-unread-mark)
(custom-face-lookup "DarkGreen" nil nil 'as-is 'as-is 'as-is)) (custom-face-lookup "DarkGreen" nil nil 'custom-asis 'custom-asis 'custom-asis))
(cons '(> score default) 'bold) (cons '(> score default) 'bold)
(cons '(< score default) 'italic))))) (cons '(< score default) 'italic)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment