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

[ShengHuo ZHU]

Index: emacs/lisp/gnus/gnus.el
diff -c emacs/lisp/gnus/gnus.el:1.22 emacs/lisp/gnus/gnus.el:1.23
*** emacs/lisp/gnus/gnus.el:1.22        Sat Nov 10 03:20:24 2001
--- emacs/lisp/gnus/gnus.el     Tue Jan  1 22:36:28 2002
***************
*** 1,6 ****
  ;;; gnus.el --- a newsreader for GNU Emacs
! ;; Copyright (C) 1987, 1988, 1989, 1990, 1993, 1994, 1995, 1996,
! ;;        1997, 1998, 2000, 2001 Free Software Foundation, Inc.
  
  ;; Author: Masanobu UMEDA <address@hidden>
  ;;    Lars Magne Ingebrigtsen <address@hidden>
--- 1,6 ----
  ;;; gnus.el --- a newsreader for GNU Emacs
! ;; Copyright (C) 1987, 1988, 1989, 1990, 1993, 1994, 1995, 1996, 1997,
! ;;               1998, 2000, 2001, 2002 Free Software Foundation, Inc.
  
  ;; Author: Masanobu UMEDA <address@hidden>
  ;;    Lars Magne Ingebrigtsen <address@hidden>
***************
*** 325,334 ****
  (defface gnus-group-news-1-face
    '((((class color)
        (background dark))
!      (:foreground "PaleTurquoise" :bold t))
      (((class color)
        (background light))
!      (:foreground "ForestGreen" :bold t))
      (t
       ()))
    "Level 1 newsgroup face.")
--- 325,334 ----
  (defface gnus-group-news-1-face
    '((((class color)
        (background dark))
!      (:foreground "PaleTurquoise" :weight bold))
      (((class color)
        (background light))
!      (:foreground "ForestGreen" :weight bold))
      (t
       ()))
    "Level 1 newsgroup face.")
***************
*** 347,356 ****
  (defface gnus-group-news-2-face
    '((((class color)
        (background dark))
!      (:foreground "turquoise" :bold t))
      (((class color)
        (background light))
!      (:foreground "CadetBlue4" :bold t))
      (t
       ()))
    "Level 2 newsgroup face.")
--- 347,356 ----
  (defface gnus-group-news-2-face
    '((((class color)
        (background dark))
!      (:foreground "turquoise" :weight bold))
      (((class color)
        (background light))
!      (:foreground "CadetBlue4" :weight bold))
      (t
       ()))
    "Level 2 newsgroup face.")
***************
*** 369,378 ****
  (defface gnus-group-news-3-face
    '((((class color)
        (background dark))
!      (:bold t))
      (((class color)
        (background light))
!      (:bold t))
      (t
       ()))
    "Level 3 newsgroup face.")
--- 369,378 ----
  (defface gnus-group-news-3-face
    '((((class color)
        (background dark))
!      (:weight bold))
      (((class color)
        (background light))
!      (:weight bold))
      (t
       ()))
    "Level 3 newsgroup face.")
***************
*** 391,400 ****
  (defface gnus-group-news-4-face
    '((((class color)
        (background dark))
!      (:bold t))
      (((class color)
        (background light))
!      (:bold t))
      (t
       ()))
    "Level 4 newsgroup face.")
--- 391,400 ----
  (defface gnus-group-news-4-face
    '((((class color)
        (background dark))
!      (:weight bold))
      (((class color)
        (background light))
!      (:weight bold))
      (t
       ()))
    "Level 4 newsgroup face.")
***************
*** 413,422 ****
  (defface gnus-group-news-5-face
    '((((class color)
        (background dark))
!      (:bold t))
      (((class color)
        (background light))
!      (:bold t))
      (t
       ()))
    "Level 5 newsgroup face.")
--- 413,422 ----
  (defface gnus-group-news-5-face
    '((((class color)
        (background dark))
!      (:weight bold))
      (((class color)
        (background light))
!      (:weight bold))
      (t
       ()))
    "Level 5 newsgroup face.")
***************
*** 435,444 ****
  (defface gnus-group-news-6-face
    '((((class color)
        (background dark))
!      (:bold t))
      (((class color)
        (background light))
!      (:bold t))
      (t
       ()))
    "Level 6 newsgroup face.")
--- 435,444 ----
  (defface gnus-group-news-6-face
    '((((class color)
        (background dark))
!      (:weight bold))
      (((class color)
        (background light))
!      (:weight bold))
      (t
       ()))
    "Level 6 newsgroup face.")
***************
*** 457,466 ****
  (defface gnus-group-news-low-face
    '((((class color)
        (background dark))
!      (:foreground "DarkTurquoise" :bold t))
      (((class color)
        (background light))
!      (:foreground "DarkGreen" :bold t))
      (t
       ()))
    "Low level newsgroup face.")
--- 457,466 ----
  (defface gnus-group-news-low-face
    '((((class color)
        (background dark))
!      (:foreground "DarkTurquoise" :weight bold))
      (((class color)
        (background light))
!      (:foreground "DarkGreen" :weight bold))
      (t
       ()))
    "Low level newsgroup face.")
***************
*** 479,490 ****
  (defface gnus-group-mail-1-face
    '((((class color)
        (background dark))
!      (:foreground "aquamarine1" :bold t))
      (((class color)
        (background light))
!      (:foreground "DeepPink3" :bold t))
      (t
!      (:bold t)))
    "Level 1 mailgroup face.")
  
  (defface gnus-group-mail-1-empty-face
--- 479,490 ----
  (defface gnus-group-mail-1-face
    '((((class color)
        (background dark))
!      (:foreground "aquamarine1" :weight bold))
      (((class color)
        (background light))
!      (:foreground "DeepPink3" :weight bold))
      (t
!      (:weight bold)))
    "Level 1 mailgroup face.")
  
  (defface gnus-group-mail-1-empty-face
***************
*** 495,512 ****
        (background light))
       (:foreground "DeepPink3"))
      (t
!      (:italic t :bold t)))
    "Level 1 empty mailgroup face.")
  
  (defface gnus-group-mail-2-face
    '((((class color)
        (background dark))
!      (:foreground "aquamarine2" :bold t))
      (((class color)
        (background light))
!      (:foreground "HotPink3" :bold t))
      (t
!      (:bold t)))
    "Level 2 mailgroup face.")
  
  (defface gnus-group-mail-2-empty-face
--- 495,512 ----
        (background light))
       (:foreground "DeepPink3"))
      (t
!      (:slant italic :weight bold)))
    "Level 1 empty mailgroup face.")
  
  (defface gnus-group-mail-2-face
    '((((class color)
        (background dark))
!      (:foreground "aquamarine2" :weight bold))
      (((class color)
        (background light))
!      (:foreground "HotPink3" :weight bold))
      (t
!      (:weight bold)))
    "Level 2 mailgroup face.")
  
  (defface gnus-group-mail-2-empty-face
***************
*** 517,534 ****
        (background light))
       (:foreground "HotPink3"))
      (t
!      (:bold t)))
    "Level 2 empty mailgroup face.")
  
  (defface gnus-group-mail-3-face
    '((((class color)
        (background dark))
!      (:foreground "aquamarine3" :bold t))
      (((class color)
        (background light))
!      (:foreground "magenta4" :bold t))
      (t
!      (:bold t)))
    "Level 3 mailgroup face.")
  
  (defface gnus-group-mail-3-empty-face
--- 517,534 ----
        (background light))
       (:foreground "HotPink3"))
      (t
!      (:weight bold)))
    "Level 2 empty mailgroup face.")
  
  (defface gnus-group-mail-3-face
    '((((class color)
        (background dark))
!      (:foreground "aquamarine3" :weight bold))
      (((class color)
        (background light))
!      (:foreground "magenta4" :weight bold))
      (t
!      (:weight bold)))
    "Level 3 mailgroup face.")
  
  (defface gnus-group-mail-3-empty-face
***************
*** 545,556 ****
  (defface gnus-group-mail-low-face
    '((((class color)
        (background dark))
!      (:foreground "aquamarine4" :bold t))
      (((class color)
        (background light))
!      (:foreground "DeepPink4" :bold t))
      (t
!      (:bold t)))
    "Low level mailgroup face.")
  
  (defface gnus-group-mail-low-empty-face
--- 545,556 ----
  (defface gnus-group-mail-low-face
    '((((class color)
        (background dark))
!      (:foreground "aquamarine4" :weight bold))
      (((class color)
        (background light))
!      (:foreground "DeepPink4" :weight bold))
      (t
!      (:weight bold)))
    "Low level mailgroup face.")
  
  (defface gnus-group-mail-low-empty-face
***************
*** 561,567 ****
        (background light))
       (:foreground "DeepPink4"))
      (t
!      (:bold t)))
    "Low level empty mailgroup face.")
  
  ;; Summary mode faces.
--- 561,567 ----
        (background light))
       (:foreground "DeepPink4"))
      (t
!      (:weight bold)))
    "Low level empty mailgroup face.")
  
  ;; Summary mode faces.
***************
*** 578,600 ****
  (defface gnus-summary-high-ticked-face
    '((((class color)
        (background dark))
!      (:foreground "pink" :bold t))
      (((class color)
        (background light))
!      (:foreground "firebrick" :bold t))
      (t
!      (:bold t)))
    "Face used for high interest ticked articles.")
  
  (defface gnus-summary-low-ticked-face
    '((((class color)
        (background dark))
!      (:foreground "pink" :italic t))
      (((class color)
        (background light))
!      (:foreground "firebrick" :italic t))
      (t
!      (:italic t)))
    "Face used for low interest ticked articles.")
  
  (defface gnus-summary-normal-ticked-face
--- 578,600 ----
  (defface gnus-summary-high-ticked-face
    '((((class color)
        (background dark))
!      (:foreground "pink" :weight bold))
      (((class color)
        (background light))
!      (:foreground "firebrick" :weight bold))
      (t
!      (:weight bold)))
    "Face used for high interest ticked articles.")
  
  (defface gnus-summary-low-ticked-face
    '((((class color)
        (background dark))
!      (:foreground "pink" :slant italic))
      (((class color)
        (background light))
!      (:foreground "firebrick" :slant italic))
      (t
!      (:slant italic)))
    "Face used for low interest ticked articles.")
  
  (defface gnus-summary-normal-ticked-face
***************
*** 611,633 ****
  (defface gnus-summary-high-ancient-face
    '((((class color)
        (background dark))
!      (:foreground "SkyBlue" :bold t))
      (((class color)
        (background light))
!      (:foreground "RoyalBlue" :bold t))
      (t
!      (:bold t)))
    "Face used for high interest ancient articles.")
  
  (defface gnus-summary-low-ancient-face
    '((((class color)
        (background dark))
!      (:foreground "SkyBlue" :italic t))
      (((class color)
        (background light))
!      (:foreground "RoyalBlue" :italic t))
      (t
!      (:italic t)))
    "Face used for low interest ancient articles.")
  
  (defface gnus-summary-normal-ancient-face
--- 611,633 ----
  (defface gnus-summary-high-ancient-face
    '((((class color)
        (background dark))
!      (:foreground "SkyBlue" :weight bold))
      (((class color)
        (background light))
!      (:foreground "RoyalBlue" :weight bold))
      (t
!      (:weight bold)))
    "Face used for high interest ancient articles.")
  
  (defface gnus-summary-low-ancient-face
    '((((class color)
        (background dark))
!      (:foreground "SkyBlue" :slant italic))
      (((class color)
        (background light))
!      (:foreground "RoyalBlue" :slant italic))
      (t
!      (:slant italic)))
    "Face used for low interest ancient articles.")
  
  (defface gnus-summary-normal-ancient-face
***************
*** 643,654 ****
  
  (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
--- 643,654 ----
  
  (defface gnus-summary-high-unread-face
    '((t
!      (:weight bold)))
    "Face used for high interest unread articles.")
  
  (defface gnus-summary-low-unread-face
    '((t
!      (:slant italic)))
    "Face used for low interest unread articles.")
  
  (defface gnus-summary-normal-unread-face
***************
*** 660,685 ****
    '((((class color)
        (background dark))
       (:foreground "PaleGreen"
!                 :bold t))
      (((class color)
        (background light))
       (:foreground "DarkGreen"
!                 :bold t))
      (t
!      (:bold t)))
    "Face used for high interest read articles.")
  
  (defface gnus-summary-low-read-face
    '((((class color)
        (background dark))
       (:foreground "PaleGreen"
!                 :italic t))
      (((class color)
        (background light))
       (:foreground "DarkGreen"
!                 :italic t))
      (t
!      (:italic t)))
    "Face used for low interest read articles.")
  
  (defface gnus-summary-normal-read-face
--- 660,685 ----
    '((((class color)
        (background dark))
       (:foreground "PaleGreen"
!                 :weight bold))
      (((class color)
        (background light))
       (:foreground "DarkGreen"
!                 :weight bold))
      (t
!      (:weight bold)))
    "Face used for high interest read articles.")
  
  (defface gnus-summary-low-read-face
    '((((class color)
        (background dark))
       (:foreground "PaleGreen"
!                 :slant italic))
      (((class color)
        (background light))
       (:foreground "DarkGreen"
!                 :slant italic))
      (t
!      (:slant italic)))
    "Face used for low interest read articles.")
  
  (defface gnus-summary-normal-read-face