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

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

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

revision 1.41 by miles, Wed Jun 1 05:07:06 2005 UTC revision 1.42 by miles, Thu Jun 16 03:48:19 2005 UTC
# Line 309  variable." Line 309  variable."
309  (defcustom gnus-group-highlight  (defcustom gnus-group-highlight
310    '(;; Mail.    '(;; Mail.
311      ((and mailp (= unread 0) (eq level 1)) .      ((and mailp (= unread 0) (eq level 1)) .
312       gnus-group-mail-1-empty-face)       gnus-group-mail-1-empty)
313      ((and mailp (eq level 1)) .      ((and mailp (eq level 1)) .
314       gnus-group-mail-1-face)       gnus-group-mail-1)
315      ((and mailp (= unread 0) (eq level 2)) .      ((and mailp (= unread 0) (eq level 2)) .
316       gnus-group-mail-2-empty-face)       gnus-group-mail-2-empty)
317      ((and mailp (eq level 2)) .      ((and mailp (eq level 2)) .
318       gnus-group-mail-2-face)       gnus-group-mail-2)
319      ((and mailp (= unread 0) (eq level 3)) .      ((and mailp (= unread 0) (eq level 3)) .
320       gnus-group-mail-3-empty-face)       gnus-group-mail-3-empty)
321      ((and mailp (eq level 3)) .      ((and mailp (eq level 3)) .
322       gnus-group-mail-3-face)       gnus-group-mail-3)
323      ((and mailp (= unread 0)) .      ((and mailp (= unread 0)) .
324       gnus-group-mail-low-empty-face)       gnus-group-mail-low-empty)
325      ((and mailp) .      ((and mailp) .
326       gnus-group-mail-low-face)       gnus-group-mail-low)
327      ;; News.      ;; News.
328      ((and (= unread 0) (eq level 1)) .      ((and (= unread 0) (eq level 1)) .
329       gnus-group-news-1-empty-face)       gnus-group-news-1-empty)
330      ((and (eq level 1)) .      ((and (eq level 1)) .
331       gnus-group-news-1-face)       gnus-group-news-1)
332      ((and (= unread 0) (eq level 2)) .      ((and (= unread 0) (eq level 2)) .
333       gnus-group-news-2-empty-face)       gnus-group-news-2-empty)
334      ((and (eq level 2)) .      ((and (eq level 2)) .
335       gnus-group-news-2-face)       gnus-group-news-2)
336      ((and (= unread 0) (eq level 3)) .      ((and (= unread 0) (eq level 3)) .
337       gnus-group-news-3-empty-face)       gnus-group-news-3-empty)
338      ((and (eq level 3)) .      ((and (eq level 3)) .
339       gnus-group-news-3-face)       gnus-group-news-3)
340      ((and (= unread 0) (eq level 4)) .      ((and (= unread 0) (eq level 4)) .
341       gnus-group-news-4-empty-face)       gnus-group-news-4-empty)
342      ((and (eq level 4)) .      ((and (eq level 4)) .
343       gnus-group-news-4-face)       gnus-group-news-4)
344      ((and (= unread 0) (eq level 5)) .      ((and (= unread 0) (eq level 5)) .
345       gnus-group-news-5-empty-face)       gnus-group-news-5-empty)
346      ((and (eq level 5)) .      ((and (eq level 5)) .
347       gnus-group-news-5-face)       gnus-group-news-5)
348      ((and (= unread 0) (eq level 6)) .      ((and (= unread 0) (eq level 6)) .
349       gnus-group-news-6-empty-face)       gnus-group-news-6-empty)
350      ((and (eq level 6)) .      ((and (eq level 6)) .
351       gnus-group-news-6-face)       gnus-group-news-6)
352      ((and (= unread 0)) .      ((and (= unread 0)) .
353       gnus-group-news-low-empty-face)       gnus-group-news-low-empty)
354      (t .      (t .
355       gnus-group-news-low-face))       gnus-group-news-low))
356    "*Controls the highlighting of group buffer lines.    "*Controls the highlighting of group buffer lines.
357    
358  Below is a list of `Form'/`Face' pairs.  When deciding how a a  Below is a list of `Form'/`Face' pairs.  When deciding how a a

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