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

[Miles Bader]

Index: emacs/lisp/gnus/gnus-group.el
diff -c emacs/lisp/gnus/gnus-group.el:1.41 emacs/lisp/gnus/gnus-group.el:1.42
*** emacs/lisp/gnus/gnus-group.el:1.41  Wed Jun  1 05:07:06 2005
--- emacs/lisp/gnus/gnus-group.el       Thu Jun 16 03:48:19 2005
***************
*** 309,358 ****
  (defcustom gnus-group-highlight
    '(;; Mail.
      ((and mailp (= unread 0) (eq level 1)) .
!      gnus-group-mail-1-empty-face)
      ((and mailp (eq level 1)) .
!      gnus-group-mail-1-face)
      ((and mailp (= unread 0) (eq level 2)) .
!      gnus-group-mail-2-empty-face)
      ((and mailp (eq level 2)) .
!      gnus-group-mail-2-face)
      ((and mailp (= unread 0) (eq level 3)) .
!      gnus-group-mail-3-empty-face)
      ((and mailp (eq level 3)) .
!      gnus-group-mail-3-face)
      ((and mailp (= unread 0)) .
!      gnus-group-mail-low-empty-face)
      ((and mailp) .
!      gnus-group-mail-low-face)
      ;; News.
      ((and (= unread 0) (eq level 1)) .
!      gnus-group-news-1-empty-face)
      ((and (eq level 1)) .
!      gnus-group-news-1-face)
      ((and (= unread 0) (eq level 2)) .
!      gnus-group-news-2-empty-face)
      ((and (eq level 2)) .
!      gnus-group-news-2-face)
      ((and (= unread 0) (eq level 3)) .
!      gnus-group-news-3-empty-face)
      ((and (eq level 3)) .
!      gnus-group-news-3-face)
      ((and (= unread 0) (eq level 4)) .
!      gnus-group-news-4-empty-face)
      ((and (eq level 4)) .
!      gnus-group-news-4-face)
      ((and (= unread 0) (eq level 5)) .
!      gnus-group-news-5-empty-face)
      ((and (eq level 5)) .
!      gnus-group-news-5-face)
      ((and (= unread 0) (eq level 6)) .
!      gnus-group-news-6-empty-face)
      ((and (eq level 6)) .
!      gnus-group-news-6-face)
      ((and (= unread 0)) .
!      gnus-group-news-low-empty-face)
      (t .
!      gnus-group-news-low-face))
    "*Controls the highlighting of group buffer lines.
  
  Below is a list of `Form'/`Face' pairs.  When deciding how a a
--- 309,358 ----
  (defcustom gnus-group-highlight
    '(;; Mail.
      ((and mailp (= unread 0) (eq level 1)) .
!      gnus-group-mail-1-empty)
      ((and mailp (eq level 1)) .
!      gnus-group-mail-1)
      ((and mailp (= unread 0) (eq level 2)) .
!      gnus-group-mail-2-empty)
      ((and mailp (eq level 2)) .
!      gnus-group-mail-2)
      ((and mailp (= unread 0) (eq level 3)) .
!      gnus-group-mail-3-empty)
      ((and mailp (eq level 3)) .
!      gnus-group-mail-3)
      ((and mailp (= unread 0)) .
!      gnus-group-mail-low-empty)
      ((and mailp) .
!      gnus-group-mail-low)
      ;; News.
      ((and (= unread 0) (eq level 1)) .
!      gnus-group-news-1-empty)
      ((and (eq level 1)) .
!      gnus-group-news-1)
      ((and (= unread 0) (eq level 2)) .
!      gnus-group-news-2-empty)
      ((and (eq level 2)) .
!      gnus-group-news-2)
      ((and (= unread 0) (eq level 3)) .
!      gnus-group-news-3-empty)
      ((and (eq level 3)) .
!      gnus-group-news-3)
      ((and (= unread 0) (eq level 4)) .
!      gnus-group-news-4-empty)
      ((and (eq level 4)) .
!      gnus-group-news-4)
      ((and (= unread 0) (eq level 5)) .
!      gnus-group-news-5-empty)
      ((and (eq level 5)) .
!      gnus-group-news-5)
      ((and (= unread 0) (eq level 6)) .
!      gnus-group-news-6-empty)
      ((and (eq level 6)) .
!      gnus-group-news-6)
      ((and (= unread 0)) .
!      gnus-group-news-low-empty)
      (t .
!      gnus-group-news-low))
    "*Controls the highlighting of group buffer lines.
  
  Below is a list of `Form'/`Face' pairs.  When deciding how a a