/[emacs]/emacs/lisp/gnus/gnus.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.41 by miles, Tue May 17 04:57:28 2005 UTC revision 1.42 by miles, Thu May 26 15:03:29 2005 UTC
# Line 366  be set in `.emacs' instead." Line 366  be set in `.emacs' instead."
366       (:foreground "ForestGreen" :bold t))       (:foreground "ForestGreen" :bold t))
367      (t      (t
368       ()))       ()))
369    "Level 1 newsgroup face.")    "Level 1 newsgroup face."
370      :group 'gnus-group)
371    
372  (defface gnus-group-news-1-empty-face  (defface gnus-group-news-1-empty-face
373    '((((class color)    '((((class color)
# Line 377  be set in `.emacs' instead." Line 378  be set in `.emacs' instead."
378       (:foreground "ForestGreen"))       (:foreground "ForestGreen"))
379      (t      (t
380       ()))       ()))
381    "Level 1 empty newsgroup face.")    "Level 1 empty newsgroup face."
382      :group 'gnus-group)
383    
384  (defface gnus-group-news-2-face  (defface gnus-group-news-2-face
385    '((((class color)    '((((class color)
# Line 388  be set in `.emacs' instead." Line 390  be set in `.emacs' instead."
390       (:foreground "CadetBlue4" :bold t))       (:foreground "CadetBlue4" :bold t))
391      (t      (t
392       ()))       ()))
393    "Level 2 newsgroup face.")    "Level 2 newsgroup face."
394      :group 'gnus-group)
395    
396  (defface gnus-group-news-2-empty-face  (defface gnus-group-news-2-empty-face
397    '((((class color)    '((((class color)
# Line 399  be set in `.emacs' instead." Line 402  be set in `.emacs' instead."
402       (:foreground "CadetBlue4"))       (:foreground "CadetBlue4"))
403      (t      (t
404       ()))       ()))
405    "Level 2 empty newsgroup face.")    "Level 2 empty newsgroup face."
406      :group 'gnus-group)
407    
408  (defface gnus-group-news-3-face  (defface gnus-group-news-3-face
409    '((((class color)    '((((class color)
# Line 410  be set in `.emacs' instead." Line 414  be set in `.emacs' instead."
414       (:bold t))       (:bold t))
415      (t      (t
416       ()))       ()))
417    "Level 3 newsgroup face.")    "Level 3 newsgroup face."
418      :group 'gnus-group)
419    
420  (defface gnus-group-news-3-empty-face  (defface gnus-group-news-3-empty-face
421    '((((class color)    '((((class color)
# Line 421  be set in `.emacs' instead." Line 426  be set in `.emacs' instead."
426       ())       ())
427      (t      (t
428       ()))       ()))
429    "Level 3 empty newsgroup face.")    "Level 3 empty newsgroup face."
430      :group 'gnus-group)
431    
432  (defface gnus-group-news-4-face  (defface gnus-group-news-4-face
433    '((((class color)    '((((class color)
# Line 432  be set in `.emacs' instead." Line 438  be set in `.emacs' instead."
438       (:bold t))       (:bold t))
439      (t      (t
440       ()))       ()))
441    "Level 4 newsgroup face.")    "Level 4 newsgroup face."
442      :group 'gnus-group)
443    
444  (defface gnus-group-news-4-empty-face  (defface gnus-group-news-4-empty-face
445    '((((class color)    '((((class color)
# Line 443  be set in `.emacs' instead." Line 450  be set in `.emacs' instead."
450       ())       ())
451      (t      (t
452       ()))       ()))
453    "Level 4 empty newsgroup face.")    "Level 4 empty newsgroup face."
454      :group 'gnus-group)
455    
456  (defface gnus-group-news-5-face  (defface gnus-group-news-5-face
457    '((((class color)    '((((class color)
# Line 454  be set in `.emacs' instead." Line 462  be set in `.emacs' instead."
462       (:bold t))       (:bold t))
463      (t      (t
464       ()))       ()))
465    "Level 5 newsgroup face.")    "Level 5 newsgroup face."
466      :group 'gnus-group)
467    
468  (defface gnus-group-news-5-empty-face  (defface gnus-group-news-5-empty-face
469    '((((class color)    '((((class color)
# Line 465  be set in `.emacs' instead." Line 474  be set in `.emacs' instead."
474       ())       ())
475      (t      (t
476       ()))       ()))
477    "Level 5 empty newsgroup face.")    "Level 5 empty newsgroup face."
478      :group 'gnus-group)
479    
480  (defface gnus-group-news-6-face  (defface gnus-group-news-6-face
481    '((((class color)    '((((class color)
# Line 476  be set in `.emacs' instead." Line 486  be set in `.emacs' instead."
486       (:bold t))       (:bold t))
487      (t      (t
488       ()))       ()))
489    "Level 6 newsgroup face.")    "Level 6 newsgroup face."
490      :group 'gnus-group)
491    
492  (defface gnus-group-news-6-empty-face  (defface gnus-group-news-6-empty-face
493    '((((class color)    '((((class color)
# Line 487  be set in `.emacs' instead." Line 498  be set in `.emacs' instead."
498       ())       ())
499      (t      (t
500       ()))       ()))
501    "Level 6 empty newsgroup face.")    "Level 6 empty newsgroup face."
502      :group 'gnus-group)
503    
504  (defface gnus-group-news-low-face  (defface gnus-group-news-low-face
505    '((((class color)    '((((class color)
# Line 498  be set in `.emacs' instead." Line 510  be set in `.emacs' instead."
510       (:foreground "DarkGreen" :bold t))       (:foreground "DarkGreen" :bold t))
511      (t      (t
512       ()))       ()))
513    "Low level newsgroup face.")    "Low level newsgroup face."
514      :group 'gnus-group)
515    
516  (defface gnus-group-news-low-empty-face  (defface gnus-group-news-low-empty-face
517    '((((class color)    '((((class color)
# Line 509  be set in `.emacs' instead." Line 522  be set in `.emacs' instead."
522       (:foreground "DarkGreen"))       (:foreground "DarkGreen"))
523      (t      (t
524       ()))       ()))
525    "Low level empty newsgroup face.")    "Low level empty newsgroup face."
526      :group 'gnus-group)
527    
528  (defface gnus-group-mail-1-face  (defface gnus-group-mail-1-face
529    '((((class color)    '((((class color)
# Line 520  be set in `.emacs' instead." Line 534  be set in `.emacs' instead."
534       (:foreground "DeepPink3" :bold t))       (:foreground "DeepPink3" :bold t))
535      (t      (t
536       (:bold t)))       (:bold t)))
537    "Level 1 mailgroup face.")    "Level 1 mailgroup face."
538      :group 'gnus-group)
539    
540  (defface gnus-group-mail-1-empty-face  (defface gnus-group-mail-1-empty-face
541    '((((class color)    '((((class color)
# Line 531  be set in `.emacs' instead." Line 546  be set in `.emacs' instead."
546       (:foreground "DeepPink3"))       (:foreground "DeepPink3"))
547      (t      (t
548       (:italic t :bold t)))       (:italic t :bold t)))
549    "Level 1 empty mailgroup face.")    "Level 1 empty mailgroup face."
550      :group 'gnus-group)
551    
552  (defface gnus-group-mail-2-face  (defface gnus-group-mail-2-face
553    '((((class color)    '((((class color)
# Line 542  be set in `.emacs' instead." Line 558  be set in `.emacs' instead."
558       (:foreground "HotPink3" :bold t))       (:foreground "HotPink3" :bold t))
559      (t      (t
560       (:bold t)))       (:bold t)))
561    "Level 2 mailgroup face.")    "Level 2 mailgroup face."
562      :group 'gnus-group)
563    
564  (defface gnus-group-mail-2-empty-face  (defface gnus-group-mail-2-empty-face
565    '((((class color)    '((((class color)
# Line 553  be set in `.emacs' instead." Line 570  be set in `.emacs' instead."
570       (:foreground "HotPink3"))       (:foreground "HotPink3"))
571      (t      (t
572       (:bold t)))       (:bold t)))
573    "Level 2 empty mailgroup face.")    "Level 2 empty mailgroup face."
574      :group 'gnus-group)
575    
576  (defface gnus-group-mail-3-face  (defface gnus-group-mail-3-face
577    '((((class color)    '((((class color)
# Line 564  be set in `.emacs' instead." Line 582  be set in `.emacs' instead."
582       (:foreground "magenta4" :bold t))       (:foreground "magenta4" :bold t))
583      (t      (t
584       (:bold t)))       (:bold t)))
585    "Level 3 mailgroup face.")    "Level 3 mailgroup face."
586      :group 'gnus-group)
587    
588  (defface gnus-group-mail-3-empty-face  (defface gnus-group-mail-3-empty-face
589    '((((class color)    '((((class color)
# Line 575  be set in `.emacs' instead." Line 594  be set in `.emacs' instead."
594       (:foreground "magenta4"))       (:foreground "magenta4"))
595      (t      (t
596       ()))       ()))
597    "Level 3 empty mailgroup face.")    "Level 3 empty mailgroup face."
598      :group 'gnus-group)
599    
600  (defface gnus-group-mail-low-face  (defface gnus-group-mail-low-face
601    '((((class color)    '((((class color)
# Line 586  be set in `.emacs' instead." Line 606  be set in `.emacs' instead."
606       (:foreground "DeepPink4" :bold t))       (:foreground "DeepPink4" :bold t))
607      (t      (t
608       (:bold t)))       (:bold t)))
609    "Low level mailgroup face.")    "Low level mailgroup face."
610      :group 'gnus-group)
611    
612  (defface gnus-group-mail-low-empty-face  (defface gnus-group-mail-low-empty-face
613    '((((class color)    '((((class color)
# Line 597  be set in `.emacs' instead." Line 618  be set in `.emacs' instead."
618       (:foreground "DeepPink4"))       (:foreground "DeepPink4"))
619      (t      (t
620       (:bold t)))       (:bold t)))
621    "Low level empty mailgroup face.")    "Low level empty mailgroup face."
622      :group 'gnus-group)
623    
624  ;; Summary mode faces.  ;; Summary mode faces.
625    
626  (defface gnus-summary-selected-face '((t  (defface gnus-summary-selected-face '((t
627                                         (:underline t)))                                         (:underline t)))
628    "Face used for selected articles.")    "Face used for selected articles."
629      :group 'gnus-summary)
630    
631  (defface gnus-summary-cancelled-face  (defface gnus-summary-cancelled-face
632    '((((class color))    '((((class color))
633       (:foreground "yellow" :background "black")))       (:foreground "yellow" :background "black")))
634    "Face used for cancelled articles.")    "Face used for cancelled articles."
635      :group 'gnus-summary)
636    
637  (defface gnus-summary-high-ticked-face  (defface gnus-summary-high-ticked-face
638    '((((class color)    '((((class color)
# Line 619  be set in `.emacs' instead." Line 643  be set in `.emacs' instead."
643       (:foreground "firebrick" :bold t))       (:foreground "firebrick" :bold t))
644      (t      (t
645       (:bold t)))       (:bold t)))
646    "Face used for high interest ticked articles.")    "Face used for high interest ticked articles."
647      :group 'gnus-summary)
648    
649  (defface gnus-summary-low-ticked-face  (defface gnus-summary-low-ticked-face
650    '((((class color)    '((((class color)
# Line 630  be set in `.emacs' instead." Line 655  be set in `.emacs' instead."
655       (:foreground "firebrick" :italic t))       (:foreground "firebrick" :italic t))
656      (t      (t
657       (:italic t)))       (:italic t)))
658    "Face used for low interest ticked articles.")    "Face used for low interest ticked articles."
659      :group 'gnus-summary)
660    
661  (defface gnus-summary-normal-ticked-face  (defface gnus-summary-normal-ticked-face
662    '((((class color)    '((((class color)
# Line 641  be set in `.emacs' instead." Line 667  be set in `.emacs' instead."
667       (:foreground "firebrick"))       (:foreground "firebrick"))
668      (t      (t
669       ()))       ()))
670    "Face used for normal interest ticked articles.")    "Face used for normal interest ticked articles."
671      :group 'gnus-summary)
672    
673  (defface gnus-summary-high-ancient-face  (defface gnus-summary-high-ancient-face
674    '((((class color)    '((((class color)
# Line 652  be set in `.emacs' instead." Line 679  be set in `.emacs' instead."
679       (:foreground "RoyalBlue" :bold t))       (:foreground "RoyalBlue" :bold t))
680      (t      (t
681       (:bold t)))       (:bold t)))
682    "Face used for high interest ancient articles.")    "Face used for high interest ancient articles."
683      :group 'gnus-summary)
684    
685  (defface gnus-summary-low-ancient-face  (defface gnus-summary-low-ancient-face
686    '((((class color)    '((((class color)
# Line 663  be set in `.emacs' instead." Line 691  be set in `.emacs' instead."
691       (:foreground "RoyalBlue" :italic t))       (:foreground "RoyalBlue" :italic t))
692      (t      (t
693       (:italic t)))       (:italic t)))
694    "Face used for low interest ancient articles.")    "Face used for low interest ancient articles."
695      :group 'gnus-summary)
696    
697  (defface gnus-summary-normal-ancient-face  (defface gnus-summary-normal-ancient-face
698    '((((class color)    '((((class color)
# Line 674  be set in `.emacs' instead." Line 703  be set in `.emacs' instead."
703       (:foreground "RoyalBlue"))       (:foreground "RoyalBlue"))
704      (t      (t
705       ()))       ()))
706    "Face used for normal interest ancient articles.")    "Face used for normal interest ancient articles."
707      :group 'gnus-summary)
708    
709  (defface gnus-summary-high-undownloaded-face  (defface gnus-summary-high-undownloaded-face
710     '((((class color)     '((((class color)
# Line 683  be set in `.emacs' instead." Line 713  be set in `.emacs' instead."
713       (((class color) (background dark))       (((class color) (background dark))
714        (:bold t :foreground "LightGray"))        (:bold t :foreground "LightGray"))
715       (t (:inverse-video t :bold t)))       (t (:inverse-video t :bold t)))
716    "Face used for high interest uncached articles.")    "Face used for high interest uncached articles."
717      :group 'gnus-summary)
718    
719  (defface gnus-summary-low-undownloaded-face  (defface gnus-summary-low-undownloaded-face
720     '((((class color)     '((((class color)
# Line 692  be set in `.emacs' instead." Line 723  be set in `.emacs' instead."
723       (((class color) (background dark))       (((class color) (background dark))
724        (:italic t :foreground "LightGray" :bold nil))        (:italic t :foreground "LightGray" :bold nil))
725       (t (:inverse-video t :italic t)))       (t (:inverse-video t :italic t)))
726    "Face used for low interest uncached articles.")    "Face used for low interest uncached articles."
727      :group 'gnus-summary)
728    
729  (defface gnus-summary-normal-undownloaded-face  (defface gnus-summary-normal-undownloaded-face
730     '((((class color)     '((((class color)
# Line 701  be set in `.emacs' instead." Line 733  be set in `.emacs' instead."
733       (((class color) (background dark))       (((class color) (background dark))
734        (:foreground "LightGray" :bold nil))        (:foreground "LightGray" :bold nil))
735       (t (:inverse-video t)))       (t (:inverse-video t)))
736    "Face used for normal interest uncached articles.")    "Face used for normal interest uncached articles."
737      :group 'gnus-summary)
738    
739  (defface gnus-summary-high-unread-face  (defface gnus-summary-high-unread-face
740    '((t    '((t
741       (:bold t)))       (:bold t)))
742    "Face used for high interest unread articles.")    "Face used for high interest unread articles."
743      :group 'gnus-summary)
744    
745  (defface gnus-summary-low-unread-face  (defface gnus-summary-low-unread-face
746    '((t    '((t
747       (:italic t)))       (:italic t)))
748    "Face used for low interest unread articles.")    "Face used for low interest unread articles."
749      :group 'gnus-summary)
750    
751  (defface gnus-summary-normal-unread-face  (defface gnus-summary-normal-unread-face
752    '((t    '((t
753       ()))       ()))
754    "Face used for normal interest unread articles.")    "Face used for normal interest unread articles."
755      :group 'gnus-summary)
756    
757  (defface gnus-summary-high-read-face  (defface gnus-summary-high-read-face
758    '((((class color)    '((((class color)
# Line 729  be set in `.emacs' instead." Line 765  be set in `.emacs' instead."
765                    :bold t))                    :bold t))
766      (t      (t
767       (:bold t)))       (:bold t)))
768    "Face used for high interest read articles.")    "Face used for high interest read articles."
769      :group 'gnus-summary)
770    
771  (defface gnus-summary-low-read-face  (defface gnus-summary-low-read-face
772    '((((class color)    '((((class color)
# Line 742  be set in `.emacs' instead." Line 779  be set in `.emacs' instead."
779                    :italic t))                    :italic t))
780      (t      (t
781       (:italic t)))       (:italic t)))
782    "Face used for low interest read articles.")    "Face used for low interest read articles."
783      :group 'gnus-summary)
784    
785  (defface gnus-summary-normal-read-face  (defface gnus-summary-normal-read-face
786    '((((class color)    '((((class color)
# Line 753  be set in `.emacs' instead." Line 791  be set in `.emacs' instead."
791       (:foreground "DarkGreen"))       (:foreground "DarkGreen"))
792      (t      (t
793       ()))       ()))
794    "Face used for normal interest read articles.")    "Face used for normal interest read articles."
795      :group 'gnus-summary)
796    
797    
798  ;;;  ;;;
# Line 806  be set in `.emacs' instead." Line 845  be set in `.emacs' instead."
845       (:foreground "#888888"))       (:foreground "#888888"))
846      (t      (t
847       ()))       ()))
848    "Face for the splash screen.")    "Face for the splash screen."
849      :group 'gnus)
850    
851  (defun gnus-splash ()  (defun gnus-splash ()
852    (save-excursion    (save-excursion

Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26