Mercurial > emacs
comparison lisp/gnus-cus.el @ 14867:4166cc2986ab
Use custom-asis instead of as-is.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 23 Mar 1996 14:39:14 +0000 |
| parents | b65bb6d88e90 |
| children | acc4f62dbeb0 |
comparison
equal
deleted
inserted
replaced
| 14866:caa2ed202328 | 14867:4166cc2986ab |
|---|---|
| 32 | 32 |
| 33 ;; The following is just helper functions and data, not ment to be set | 33 ;; The following is just helper functions and data, not ment to be set |
| 34 ;; by the user. | 34 ;; by the user. |
| 35 (defun gnus-make-face (color) | 35 (defun gnus-make-face (color) |
| 36 ;; Create entry for face with COLOR. | 36 ;; Create entry for face with COLOR. |
| 37 (custom-face-lookup color nil nil 'as-is 'as-is 'as-is)) | 37 (custom-face-lookup color nil nil 'custom-asis 'custom-asis 'custom-asis)) |
| 38 | 38 |
| 39 (defvar gnus-face-light-name-list | 39 (defvar gnus-face-light-name-list |
| 40 '("light blue" "light cyan" "light yellow" "light pink" | 40 '("light blue" "light cyan" "light yellow" "light pink" |
| 41 "pale green" "beige" "orange" "magenta" "violet" "medium purple" | 41 "pale green" "beige" "orange" "magenta" "violet" "medium purple" |
| 42 "turquoise")) | 42 "turquoise")) |
| 328 '(("" bold italic))) | 328 '(("" bold italic))) |
| 329 ((eq gnus-background-mode 'dark) | 329 ((eq gnus-background-mode 'dark) |
| 330 (list (list "From" nil | 330 (list (list "From" nil |
| 331 (custom-face-lookup | 331 (custom-face-lookup |
| 332 "dark blue" nil nil t t | 332 "dark blue" nil nil t t |
| 333 'as-is)) | 333 'custom-asis)) |
| 334 (list "Subject" nil | 334 (list "Subject" nil |
| 335 (custom-face-lookup | 335 (custom-face-lookup |
| 336 "pink" nil nil t t 'as-is)) | 336 "pink" nil nil t t 'custom-asis)) |
| 337 (list "Newsgroups:.*," nil | 337 (list "Newsgroups:.*," nil |
| 338 (custom-face-lookup | 338 (custom-face-lookup |
| 339 "yellow" nil nil t t 'as-is)) | 339 "yellow" nil nil t t 'custom-asis)) |
| 340 (list "" | 340 (list "" |
| 341 (custom-face-lookup | 341 (custom-face-lookup |
| 342 "cyan" nil nil t 'as-is 'as-is) | 342 "cyan" nil nil t 'custom-asis 'custom-asis) |
| 343 (custom-face-lookup | 343 (custom-face-lookup |
| 344 "forestgreen" | 344 "forestgreen" |
| 345 nil nil 'as-is t 'as-is)))) | 345 nil nil 'custom-asis t 'custom-asis)))) |
| 346 (t | 346 (t |
| 347 (list (list "From" nil | 347 (list (list "From" nil |
| 348 (custom-face-lookup | 348 (custom-face-lookup |
| 349 "RoyalBlue" | 349 "RoyalBlue" |
| 350 nil nil t t 'as-is)) | 350 nil nil t t 'custom-asis)) |
| 351 (list "Subject" nil | 351 (list "Subject" nil |
| 352 (custom-face-lookup | 352 (custom-face-lookup |
| 353 "firebrick" | 353 "firebrick" |
| 354 nil nil t t 'as-is)) | 354 nil nil t t 'custom-asis)) |
| 355 (list "Newsgroups:.*," nil | 355 (list "Newsgroups:.*," nil |
| 356 (custom-face-lookup | 356 (custom-face-lookup |
| 357 "indianred" nil nil t t 'as-is)) | 357 "indianred" nil nil t t 'custom-asis)) |
| 358 (list "" | 358 (list "" |
| 359 (custom-face-lookup | 359 (custom-face-lookup |
| 360 "DarkGreen" | 360 "DarkGreen" |
| 361 nil nil t 'as-is 'as-is) | 361 nil nil t 'custom-asis 'custom-asis) |
| 362 (custom-face-lookup | 362 (custom-face-lookup |
| 363 "DarkGreen" | 363 "DarkGreen" |
| 364 nil nil nil t 'as-is)))))) | 364 nil nil nil t 'custom-asis)))))) |
| 365 (data ((type . repeat) | 365 (data ((type . repeat) |
| 366 (header . nil) | 366 (header . nil) |
| 367 (data (type . list) | 367 (data (type . list) |
| 368 (compact . t) | 368 (compact . t) |
| 369 (data ((type . string) | 369 (data ((type . string) |
| 448 (calculate . (cond ((not (eq gnus-display-type 'color)) | 448 (calculate . (cond ((not (eq gnus-display-type 'color)) |
| 449 '(((> score default) . bold) | 449 '(((> score default) . bold) |
| 450 ((< score default) . italic))) | 450 ((< score default) . italic))) |
| 451 ((eq gnus-background-mode 'dark) | 451 ((eq gnus-background-mode 'dark) |
| 452 (list (cons '(= mark gnus-canceled-mark) | 452 (list (cons '(= mark gnus-canceled-mark) |
| 453 (custom-face-lookup "yellow" "black" nil 'as-is 'as-is 'as-is)) | 453 (custom-face-lookup "yellow" "black" nil 'custom-asis 'custom-asis 'custom-asis)) |
| 454 (cons '(and (> score default) | 454 (cons '(and (> score default) |
| 455 (or (= mark gnus-dormant-mark) | 455 (or (= mark gnus-dormant-mark) |
| 456 (= mark gnus-ticked-mark))) | 456 (= mark gnus-ticked-mark))) |
| 457 (custom-face-lookup "pink" nil nil t 'as-is 'as-is)) | 457 (custom-face-lookup "pink" nil nil t 'custom-asis 'custom-asis)) |
| 458 (cons '(and (< score default) | 458 (cons '(and (< score default) |
| 459 (or (= mark gnus-dormant-mark) | 459 (or (= mark gnus-dormant-mark) |
| 460 (= mark gnus-ticked-mark))) | 460 (= mark gnus-ticked-mark))) |
| 461 (custom-face-lookup "pink" nil nil 'as-is t 'as-is)) | 461 (custom-face-lookup "pink" nil nil 'custom-asis t 'custom-asis)) |
| 462 (cons '(or (= mark gnus-dormant-mark) | 462 (cons '(or (= mark gnus-dormant-mark) |
| 463 (= mark gnus-ticked-mark)) | 463 (= mark gnus-ticked-mark)) |
| 464 (custom-face-lookup "pink" nil nil 'as-is 'as-is 'as-is)) | 464 (custom-face-lookup "pink" nil nil 'custom-asis 'custom-asis 'custom-asis)) |
| 465 | 465 |
| 466 (cons '(and (> score default) (= mark gnus-ancient-mark)) | 466 (cons '(and (> score default) (= mark gnus-ancient-mark)) |
| 467 (custom-face-lookup "dark blue" nil nil t 'as-is 'as-is)) | 467 (custom-face-lookup "dark blue" nil nil t 'custom-asis 'custom-asis)) |
| 468 (cons '(and (< score default) (= mark gnus-ancient-mark)) | 468 (cons '(and (< score default) (= mark gnus-ancient-mark)) |
| 469 (custom-face-lookup "SkyBlue" nil nil 'as-is t 'as-is)) | 469 (custom-face-lookup "SkyBlue" nil nil 'custom-asis t 'custom-asis)) |
| 470 (cons '(= mark gnus-ancient-mark) | 470 (cons '(= mark gnus-ancient-mark) |
| 471 (custom-face-lookup "SkyBlue" nil nil 'as-is 'as-is 'as-is)) | 471 (custom-face-lookup "SkyBlue" nil nil 'custom-asis 'custom-asis 'custom-asis)) |
| 472 | 472 |
| 473 (cons '(and (> score default) (= mark gnus-unread-mark)) | 473 (cons '(and (> score default) (= mark gnus-unread-mark)) |
| 474 (custom-face-lookup "white" nil nil t 'as-is 'as-is)) | 474 (custom-face-lookup "white" nil nil t 'custom-asis 'custom-asis)) |
| 475 (cons '(and (< score default) (= mark gnus-unread-mark)) | 475 (cons '(and (< score default) (= mark gnus-unread-mark)) |
| 476 (custom-face-lookup "white" nil nil 'as-is t 'as-is)) | 476 (custom-face-lookup "white" nil nil 'custom-asis t 'custom-asis)) |
| 477 (cons '(= mark gnus-unread-mark) | 477 (cons '(= mark gnus-unread-mark) |
| 478 (custom-face-lookup "white" nil nil 'as-is 'as-is 'as-is)) | 478 (custom-face-lookup "white" nil nil 'custom-asis 'custom-asis 'custom-asis)) |
| 479 | 479 |
| 480 (cons '(> score default) 'bold) | 480 (cons '(> score default) 'bold) |
| 481 (cons '(< score default) 'italic))) | 481 (cons '(< score default) 'italic))) |
| 482 (t | 482 (t |
| 483 (list (cons '(= mark gnus-canceled-mark) | 483 (list (cons '(= mark gnus-canceled-mark) |
| 484 (custom-face-lookup "yellow" "black" nil 'as-is 'as-is 'as-is)) | 484 (custom-face-lookup "yellow" "black" nil 'custom-asis 'custom-asis 'custom-asis)) |
| 485 (cons '(and (> score default) | 485 (cons '(and (> score default) |
| 486 (or (= mark gnus-dormant-mark) | 486 (or (= mark gnus-dormant-mark) |
| 487 (= mark gnus-ticked-mark))) | 487 (= mark gnus-ticked-mark))) |
| 488 (custom-face-lookup "firebrick" nil nil t 'as-is 'as-is)) | 488 (custom-face-lookup "firebrick" nil nil t 'custom-asis 'custom-asis)) |
| 489 (cons '(and (< score default) | 489 (cons '(and (< score default) |
| 490 (or (= mark gnus-dormant-mark) | 490 (or (= mark gnus-dormant-mark) |
| 491 (= mark gnus-ticked-mark))) | 491 (= mark gnus-ticked-mark))) |
| 492 (custom-face-lookup "firebrick" nil nil 'as-is t 'as-is)) | 492 (custom-face-lookup "firebrick" nil nil 'custom-asis t 'custom-asis)) |
| 493 (cons '(or (= mark gnus-dormant-mark) | 493 (cons '(or (= mark gnus-dormant-mark) |
| 494 (= mark gnus-ticked-mark)) | 494 (= mark gnus-ticked-mark)) |
| 495 (custom-face-lookup "firebrick" nil nil 'as-is 'as-is 'as-is)) | 495 (custom-face-lookup "firebrick" nil nil 'custom-asis 'custom-asis 'custom-asis)) |
| 496 | 496 |
| 497 (cons '(and (> score default) (= mark gnus-ancient-mark)) | 497 (cons '(and (> score default) (= mark gnus-ancient-mark)) |
| 498 (custom-face-lookup "RoyalBlue" nil nil t 'as-is 'as-is)) | 498 (custom-face-lookup "RoyalBlue" nil nil t 'custom-asis 'custom-asis)) |
| 499 (cons '(and (< score default) (= mark gnus-ancient-mark)) | 499 (cons '(and (< score default) (= mark gnus-ancient-mark)) |
| 500 (custom-face-lookup "RoyalBlue" nil nil 'as-is t 'as-is)) | 500 (custom-face-lookup "RoyalBlue" nil nil 'custom-asis t 'custom-asis)) |
| 501 (cons '(= mark gnus-ancient-mark) | 501 (cons '(= mark gnus-ancient-mark) |
| 502 (custom-face-lookup "RoyalBlue" nil nil 'as-is 'as-is 'as-is)) | 502 (custom-face-lookup "RoyalBlue" nil nil 'custom-asis 'custom-asis 'custom-asis)) |
| 503 | 503 |
| 504 (cons '(and (> score default) (/= mark gnus-unread-mark)) | 504 (cons '(and (> score default) (/= mark gnus-unread-mark)) |
| 505 (custom-face-lookup "DarkGreen" nil nil t 'as-is 'as-is)) | 505 (custom-face-lookup "DarkGreen" nil nil t 'custom-asis 'custom-asis)) |
| 506 (cons '(and (< score default) (/= mark gnus-unread-mark)) | 506 (cons '(and (< score default) (/= mark gnus-unread-mark)) |
| 507 (custom-face-lookup "DarkGreen" nil nil 'as-is t 'as-is)) | 507 (custom-face-lookup "DarkGreen" nil nil 'custom-asis t 'custom-asis)) |
| 508 (cons '(/= mark gnus-unread-mark) | 508 (cons '(/= mark gnus-unread-mark) |
| 509 (custom-face-lookup "DarkGreen" nil nil 'as-is 'as-is 'as-is)) | 509 (custom-face-lookup "DarkGreen" nil nil 'custom-asis 'custom-asis 'custom-asis)) |
| 510 | 510 |
| 511 (cons '(> score default) 'bold) | 511 (cons '(> score default) 'bold) |
| 512 (cons '(< score default) 'italic))))) | 512 (cons '(< score default) 'italic))))) |
| 513 (data ((type . repeat) | 513 (data ((type . repeat) |
| 514 (header . nil) | 514 (header . nil) |