[Emacs-diffs] Changes to emacs/lisp/gnus/gnus.el

[Miles Bader]

Index: emacs/lisp/gnus/gnus.el
diff -c emacs/lisp/gnus/gnus.el:1.41 emacs/lisp/gnus/gnus.el:1.42
*** emacs/lisp/gnus/gnus.el:1.41        Tue May 17 04:57:28 2005
--- emacs/lisp/gnus/gnus.el     Thu May 26 15:03:29 2005
***************
*** 366,372 ****
       (:foreground "ForestGreen" :bold t))
      (t
       ()))
!   "Level 1 newsgroup face.")
  
  (defface gnus-group-news-1-empty-face
    '((((class color)
--- 366,373 ----
       (:foreground "ForestGreen" :bold t))
      (t
       ()))
!   "Level 1 newsgroup face."
!   :group 'gnus-group)
  
  (defface gnus-group-news-1-empty-face
    '((((class color)
***************
*** 377,383 ****
       (:foreground "ForestGreen"))
      (t
       ()))
!   "Level 1 empty newsgroup face.")
  
  (defface gnus-group-news-2-face
    '((((class color)
--- 378,385 ----
       (:foreground "ForestGreen"))
      (t
       ()))
!   "Level 1 empty newsgroup face."
!   :group 'gnus-group)
  
  (defface gnus-group-news-2-face
    '((((class color)
***************
*** 388,394 ****
       (:foreground "CadetBlue4" :bold t))
      (t
       ()))
!   "Level 2 newsgroup face.")
  
  (defface gnus-group-news-2-empty-face
    '((((class color)
--- 390,397 ----
       (:foreground "CadetBlue4" :bold t))
      (t
       ()))
!   "Level 2 newsgroup face."
!   :group 'gnus-group)
  
  (defface gnus-group-news-2-empty-face
    '((((class color)
***************
*** 399,405 ****
       (:foreground "CadetBlue4"))
      (t
       ()))
!   "Level 2 empty newsgroup face.")
  
  (defface gnus-group-news-3-face
    '((((class color)
--- 402,409 ----
       (:foreground "CadetBlue4"))
      (t
       ()))
!   "Level 2 empty newsgroup face."
!   :group 'gnus-group)
  
  (defface gnus-group-news-3-face
    '((((class color)
***************
*** 410,416 ****
       (:bold t))
      (t
       ()))
!   "Level 3 newsgroup face.")
  
  (defface gnus-group-news-3-empty-face
    '((((class color)
--- 414,421 ----
       (:bold t))
      (t
       ()))
!   "Level 3 newsgroup face."
!   :group 'gnus-group)
  
  (defface gnus-group-news-3-empty-face
    '((((class color)
***************
*** 421,427 ****
       ())
      (t
       ()))
!   "Level 3 empty newsgroup face.")
  
  (defface gnus-group-news-4-face
    '((((class color)
--- 426,433 ----
       ())
      (t
       ()))
!   "Level 3 empty newsgroup face."
!   :group 'gnus-group)
  
  (defface gnus-group-news-4-face
    '((((class color)
***************
*** 432,438 ****
       (:bold t))
      (t
       ()))
!   "Level 4 newsgroup face.")
  
  (defface gnus-group-news-4-empty-face
    '((((class color)
--- 438,445 ----
       (:bold t))
      (t
       ()))
!   "Level 4 newsgroup face."
!   :group 'gnus-group)
  
  (defface gnus-group-news-4-empty-face
    '((((class color)
***************
*** 443,449 ****
       ())
      (t
       ()))
!   "Level 4 empty newsgroup face.")
  
  (defface gnus-group-news-5-face
    '((((class color)
--- 450,457 ----
       ())
      (t
       ()))
!   "Level 4 empty newsgroup face."
!   :group 'gnus-group)
  
  (defface gnus-group-news-5-face
    '((((class color)
***************
*** 454,460 ****
       (:bold t))
      (t
       ()))
!   "Level 5 newsgroup face.")
  
  (defface gnus-group-news-5-empty-face
    '((((class color)
--- 462,469 ----
       (:bold t))
      (t
       ()))
!   "Level 5 newsgroup face."
!   :group 'gnus-group)
  
  (defface gnus-group-news-5-empty-face
    '((((class color)
***************
*** 465,471 ****
       ())
      (t
       ()))
!   "Level 5 empty newsgroup face.")
  
  (defface gnus-group-news-6-face
    '((((class color)
--- 474,481 ----
       ())
      (t
       ()))
!   "Level 5 empty newsgroup face."
!   :group 'gnus-group)
  
  (defface gnus-group-news-6-face
    '((((class color)
***************
*** 476,482 ****
       (:bold t))
      (t
       ()))
!   "Level 6 newsgroup face.")
  
  (defface gnus-group-news-6-empty-face
    '((((class color)
--- 486,493 ----
       (:bold t))
      (t
       ()))
!   "Level 6 newsgroup face."
!   :group 'gnus-group)
  
  (defface gnus-group-news-6-empty-face
    '((((class color)
***************
*** 487,493 ****
       ())
      (t
       ()))
!   "Level 6 empty newsgroup face.")
  
  (defface gnus-group-news-low-face
    '((((class color)
--- 498,505 ----
       ())
      (t
       ()))
!   "Level 6 empty newsgroup face."
!   :group 'gnus-group)
  
  (defface gnus-group-news-low-face
    '((((class color)
***************
*** 498,504 ****
       (:foreground "DarkGreen" :bold t))
      (t
       ()))
!   "Low level newsgroup face.")
  
  (defface gnus-group-news-low-empty-face
    '((((class color)
--- 510,517 ----
       (:foreground "DarkGreen" :bold t))
      (t
       ()))
!   "Low level newsgroup face."
!   :group 'gnus-group)
  
  (defface gnus-group-news-low-empty-face
    '((((class color)
***************
*** 509,515 ****
       (:foreground "DarkGreen"))
      (t
       ()))
!   "Low level empty newsgroup face.")
  
  (defface gnus-group-mail-1-face
    '((((class color)
--- 522,529 ----
       (:foreground "DarkGreen"))
      (t
       ()))
!   "Low level empty newsgroup face."
!   :group 'gnus-group)
  
  (defface gnus-group-mail-1-face
    '((((class color)
***************
*** 520,526 ****
       (:foreground "DeepPink3" :bold t))
      (t
       (:bold t)))
!   "Level 1 mailgroup face.")
  
  (defface gnus-group-mail-1-empty-face
    '((((class color)
--- 534,541 ----
       (:foreground "DeepPink3" :bold t))
      (t
       (:bold t)))
!   "Level 1 mailgroup face."
!   :group 'gnus-group)
  
  (defface gnus-group-mail-1-empty-face
    '((((class color)
***************
*** 531,537 ****
       (:foreground "DeepPink3"))
      (t
       (:italic t :bold t)))
!   "Level 1 empty mailgroup face.")
  
  (defface gnus-group-mail-2-face
    '((((class color)
--- 546,553 ----
       (:foreground "DeepPink3"))
      (t
       (:italic t :bold t)))
!   "Level 1 empty mailgroup face."
!   :group 'gnus-group)
  
  (defface gnus-group-mail-2-face
    '((((class color)
***************
*** 542,548 ****
       (:foreground "HotPink3" :bold t))
      (t
       (:bold t)))
!   "Level 2 mailgroup face.")
  
  (defface gnus-group-mail-2-empty-face
    '((((class color)
--- 558,565 ----
       (:foreground "HotPink3" :bold t))
      (t
       (:bold t)))
!   "Level 2 mailgroup face."
!   :group 'gnus-group)
  
  (defface gnus-group-mail-2-empty-face
    '((((class color)
***************
*** 553,559 ****
       (:foreground "HotPink3"))
      (t
       (:bold t)))
!   "Level 2 empty mailgroup face.")
  
  (defface gnus-group-mail-3-face
    '((((class color)
--- 570,577 ----
       (:foreground "HotPink3"))
      (t
       (:bold t)))
!   "Level 2 empty mailgroup face."
!   :group 'gnus-group)
  
  (defface gnus-group-mail-3-face
    '((((class color)
***************
*** 564,570 ****
       (:foreground "magenta4" :bold t))
      (t
       (:bold t)))
!   "Level 3 mailgroup face.")
  
  (defface gnus-group-mail-3-empty-face
    '((((class color)
--- 582,589 ----
       (:foreground "magenta4" :bold t))
      (t
       (:bold t)))
!   "Level 3 mailgroup face."
!   :group 'gnus-group)
  
  (defface gnus-group-mail-3-empty-face
    '((((class color)
***************
*** 575,581 ****
       (:foreground "magenta4"))
      (t
       ()))
!   "Level 3 empty mailgroup face.")
  
  (defface gnus-group-mail-low-face
    '((((class color)
--- 594,601 ----
       (:foreground "magenta4"))
      (t
       ()))
!   "Level 3 empty mailgroup face."
!   :group 'gnus-group)
  
  (defface gnus-group-mail-low-face
    '((((class color)
***************
*** 586,592 ****
       (:foreground "DeepPink4" :bold t))
      (t
       (:bold t)))
!   "Low level mailgroup face.")
  
  (defface gnus-group-mail-low-empty-face
    '((((class color)
--- 606,613 ----
       (:foreground "DeepPink4" :bold t))
      (t
       (:bold t)))
!   "Low level mailgroup face."
!   :group 'gnus-group)
  
  (defface gnus-group-mail-low-empty-face
    '((((class color)
***************
*** 597,614 ****
       (:foreground "DeepPink4"))
      (t
       (:bold t)))
!   "Low level empty mailgroup face.")
  
  ;; Summary mode faces.
  
  (defface gnus-summary-selected-face '((t
                                       (:underline t)))
!   "Face used for selected articles.")
  
  (defface gnus-summary-cancelled-face
    '((((class color))
       (:foreground "yellow" :background "black")))
!   "Face used for cancelled articles.")
  
  (defface gnus-summary-high-ticked-face
    '((((class color)
--- 618,638 ----
       (:foreground "DeepPink4"))
      (t
       (:bold t)))
!   "Low level empty mailgroup face."
!   :group 'gnus-group)
  
  ;; Summary mode faces.
  
  (defface gnus-summary-selected-face '((t
                                       (:underline t)))
!   "Face used for selected articles."
!   :group 'gnus-summary)
  
  (defface gnus-summary-cancelled-face
    '((((class color))
       (:foreground "yellow" :background "black")))
!   "Face used for cancelled articles."
!   :group 'gnus-summary)
  
  (defface gnus-summary-high-ticked-face
    '((((class color)
***************
*** 619,625 ****
       (:foreground "firebrick" :bold t))
      (t
       (:bold t)))
!   "Face used for high interest ticked articles.")
  
  (defface gnus-summary-low-ticked-face
    '((((class color)
--- 643,650 ----
       (:foreground "firebrick" :bold t))
      (t
       (:bold t)))
!   "Face used for high interest ticked articles."
!   :group 'gnus-summary)
  
  (defface gnus-summary-low-ticked-face
    '((((class color)
***************
*** 630,636 ****
       (:foreground "firebrick" :italic t))
      (t
       (:italic t)))
!   "Face used for low interest ticked articles.")
  
  (defface gnus-summary-normal-ticked-face
    '((((class color)
--- 655,662 ----
       (:foreground "firebrick" :italic t))
      (t
       (:italic t)))
!   "Face used for low interest ticked articles."
!   :group 'gnus-summary)
  
  (defface gnus-summary-normal-ticked-face
    '((((class color)
***************
*** 641,647 ****
       (:foreground "firebrick"))
      (t
       ()))
!   "Face used for normal interest ticked articles.")
  
  (defface gnus-summary-high-ancient-face
    '((((class color)
--- 667,674 ----
       (:foreground "firebrick"))
      (t
       ()))
!   "Face used for normal interest ticked articles."
!   :group 'gnus-summary)
  
  (defface gnus-summary-high-ancient-face
    '((((class color)
***************
*** 652,658 ****
       (:foreground "RoyalBlue" :bold t))
      (t
       (:bold t)))
!   "Face used for high interest ancient articles.")
  
  (defface gnus-summary-low-ancient-face
    '((((class color)
--- 679,686 ----
       (:foreground "RoyalBlue" :bold t))
      (t
       (:bold t)))
!   "Face used for high interest ancient articles."
!   :group 'gnus-summary)
  
  (defface gnus-summary-low-ancient-face
    '((((class color)
***************
*** 663,669 ****
       (:foreground "RoyalBlue" :italic t))
      (t
       (:italic t)))
!   "Face used for low interest ancient articles.")
  
  (defface gnus-summary-normal-ancient-face
    '((((class color)
--- 691,698 ----
       (:foreground "RoyalBlue" :italic t))
      (t
       (:italic t)))
!   "Face used for low interest ancient articles."
!   :group 'gnus-summary)
  
  (defface gnus-summary-normal-ancient-face
    '((((class color)
***************
*** 674,680 ****
       (:foreground "RoyalBlue"))
      (t
       ()))
!   "Face used for normal interest ancient articles.")
  
  (defface gnus-summary-high-undownloaded-face
     '((((class color)
--- 703,710 ----
       (:foreground "RoyalBlue"))
      (t
       ()))
!   "Face used for normal interest ancient articles."
!   :group 'gnus-summary)
  
  (defface gnus-summary-high-undownloaded-face
     '((((class color)
***************
*** 683,689 ****
       (((class color) (background dark))
        (:bold t :foreground "LightGray"))
       (t (:inverse-video t :bold t)))
!   "Face used for high interest uncached articles.")
  
  (defface gnus-summary-low-undownloaded-face
     '((((class color)
--- 713,720 ----
       (((class color) (background dark))
        (:bold t :foreground "LightGray"))
       (t (:inverse-video t :bold t)))
!   "Face used for high interest uncached articles."
!   :group 'gnus-summary)
  
  (defface gnus-summary-low-undownloaded-face
     '((((class color)
***************
*** 692,698 ****
       (((class color) (background dark))
        (:italic t :foreground "LightGray" :bold nil))
       (t (:inverse-video t :italic t)))
!   "Face used for low interest uncached articles.")
  
  (defface gnus-summary-normal-undownloaded-face
     '((((class color)
--- 723,730 ----
       (((class color) (background dark))
        (:italic t :foreground "LightGray" :bold nil))
       (t (:inverse-video t :italic t)))
!   "Face used for low interest uncached articles."
!   :group 'gnus-summary)
  
  (defface gnus-summary-normal-undownloaded-face
     '((((class color)
***************
*** 701,722 ****
       (((class color) (background dark))
        (:foreground "LightGray" :bold nil))
       (t (:inverse-video t)))
!   "Face used for normal interest uncached articles.")
  
  (defface gnus-summary-high-unread-face
    '((t
       (:bold t)))
!   "Face used for high interest unread articles.")
  
  (defface gnus-summary-low-unread-face
    '((t
       (:italic t)))
!   "Face used for low interest unread articles.")
  
  (defface gnus-summary-normal-unread-face
    '((t
       ()))
!   "Face used for normal interest unread articles.")
  
  (defface gnus-summary-high-read-face
    '((((class color)
--- 733,758 ----
       (((class color) (background dark))
        (:foreground "LightGray" :bold nil))
       (t (:inverse-video t)))
!   "Face used for normal interest uncached articles."
!   :group 'gnus-summary)
  
  (defface gnus-summary-high-unread-face
    '((t
       (:bold t)))
!   "Face used for high interest unread articles."
!   :group 'gnus-summary)
  
  (defface gnus-summary-low-unread-face
    '((t
       (:italic t)))
!   "Face used for low interest unread articles."
!   :group 'gnus-summary)
  
  (defface gnus-summary-normal-unread-face
    '((t
       ()))
!   "Face used for normal interest unread articles."
!   :group 'gnus-summary)
  
  (defface gnus-summary-high-read-face
    '((((class color)
***************
*** 729,735 ****
                  :bold t))
      (t
       (:bold t)))
!   "Face used for high interest read articles.")
  
  (defface gnus-summary-low-read-face
    '((((class color)
--- 765,772 ----
                  :bold t))
      (t
       (:bold t)))
!   "Face used for high interest read articles."
!   :group 'gnus-summary)
  
  (defface gnus-summary-low-read-face
    '((((class color)
***************
*** 742,748 ****
                  :italic t))
      (t
       (:italic t)))
!   "Face used for low interest read articles.")
  
  (defface gnus-summary-normal-read-face
    '((((class color)
--- 779,786 ----
                  :italic t))
      (t
       (:italic t)))
!   "Face used for low interest read articles."
!   :group 'gnus-summary)
  
  (defface gnus-summary-normal-read-face
    '((((class color)
***************
*** 753,759 ****
       (:foreground "DarkGreen"))
      (t
       ()))
!   "Face used for normal interest read articles.")
  
  
  ;;;
--- 791,798 ----
       (:foreground "DarkGreen"))
      (t
       ()))
!   "Face used for normal interest read articles."
!   :group 'gnus-summary)
  
  
  ;;;
***************
*** 806,812 ****
       (:foreground "#888888"))
      (t
       ()))
!   "Face for the splash screen.")
  
  (defun gnus-splash ()
    (save-excursion
--- 845,852 ----
       (:foreground "#888888"))
      (t
       ()))
!   "Face for the splash screen."
!   :group 'gnus)
  
  (defun gnus-splash ()
    (save-excursion