Mercurial > emacs

comparison lisp/gnus/gnus-group.el @ 90197:b7da78284d4c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-65 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 425-445) - Remove "-face" suffix from gnus faces - Update from CVS - Remove "-face" suffix from MH-E faces - Remove "-face" suffix from cc-mode faces - Remove "-face" suffix from eshell faces - Remove "-face" suffix from ediff faces - Implement tty vertical-divider face - Rename vertical-divider face to vertical-border - Change escape-glyph color on dark backgrounds back to cyan - Update reference to renamed Buffer-menu-buffer face
author Miles Bader <miles@gnu.org>
date Fri, 24 Jun 2005 01:59:52 +0000
parents 01137c1fdbe9 53e7abe8917f
children f9a65d7ebd29
comparison
equal deleted inserted replaced
90196:82d495f87e7b 90197:b7da78284d4c
307 (sexp :tag "Method")))) 307 (sexp :tag "Method"))))
308 308
309 (defcustom gnus-group-highlight 309 (defcustom gnus-group-highlight
310 '(;; Mail. 310 '(;; Mail.
311 ((and mailp (= unread 0) (eq level 1)) . 311 ((and mailp (= unread 0) (eq level 1)) .
312 gnus-group-mail-1-empty-face) 312 gnus-group-mail-1-empty)
313 ((and mailp (eq level 1)) . 313 ((and mailp (eq level 1)) .
314 gnus-group-mail-1-face) 314 gnus-group-mail-1)
315 ((and mailp (= unread 0) (eq level 2)) . 315 ((and mailp (= unread 0) (eq level 2)) .
316 gnus-group-mail-2-empty-face) 316 gnus-group-mail-2-empty)
317 ((and mailp (eq level 2)) . 317 ((and mailp (eq level 2)) .
318 gnus-group-mail-2-face) 318 gnus-group-mail-2)
319 ((and mailp (= unread 0) (eq level 3)) . 319 ((and mailp (= unread 0) (eq level 3)) .
320 gnus-group-mail-3-empty-face) 320 gnus-group-mail-3-empty)
321 ((and mailp (eq level 3)) . 321 ((and mailp (eq level 3)) .
322 gnus-group-mail-3-face) 322 gnus-group-mail-3)
323 ((and mailp (= unread 0)) . 323 ((and mailp (= unread 0)) .
324 gnus-group-mail-low-empty-face) 324 gnus-group-mail-low-empty)
325 ((and mailp) . 325 ((and mailp) .
326 gnus-group-mail-low-face) 326 gnus-group-mail-low)
327 ;; News. 327 ;; News.
328 ((and (= unread 0) (eq level 1)) . 328 ((and (= unread 0) (eq level 1)) .
329 gnus-group-news-1-empty-face) 329 gnus-group-news-1-empty)
330 ((and (eq level 1)) . 330 ((and (eq level 1)) .
331 gnus-group-news-1-face) 331 gnus-group-news-1)
332 ((and (= unread 0) (eq level 2)) . 332 ((and (= unread 0) (eq level 2)) .
333 gnus-group-news-2-empty-face) 333 gnus-group-news-2-empty)
334 ((and (eq level 2)) . 334 ((and (eq level 2)) .
335 gnus-group-news-2-face) 335 gnus-group-news-2)
336 ((and (= unread 0) (eq level 3)) . 336 ((and (= unread 0) (eq level 3)) .
337 gnus-group-news-3-empty-face) 337 gnus-group-news-3-empty)
338 ((and (eq level 3)) . 338 ((and (eq level 3)) .
339 gnus-group-news-3-face) 339 gnus-group-news-3)
340 ((and (= unread 0) (eq level 4)) . 340 ((and (= unread 0) (eq level 4)) .
341 gnus-group-news-4-empty-face) 341 gnus-group-news-4-empty)
342 ((and (eq level 4)) . 342 ((and (eq level 4)) .
343 gnus-group-news-4-face) 343 gnus-group-news-4)
344 ((and (= unread 0) (eq level 5)) . 344 ((and (= unread 0) (eq level 5)) .
345 gnus-group-news-5-empty-face) 345 gnus-group-news-5-empty)
346 ((and (eq level 5)) . 346 ((and (eq level 5)) .
347 gnus-group-news-5-face) 347 gnus-group-news-5)
348 ((and (= unread 0) (eq level 6)) . 348 ((and (= unread 0) (eq level 6)) .
349 gnus-group-news-6-empty-face) 349 gnus-group-news-6-empty)
350 ((and (eq level 6)) . 350 ((and (eq level 6)) .
351 gnus-group-news-6-face) 351 gnus-group-news-6)
352 ((and (= unread 0)) . 352 ((and (= unread 0)) .
353 gnus-group-news-low-empty-face) 353 gnus-group-news-low-empty)
354 (t . 354 (t .
355 gnus-group-news-low-face)) 355 gnus-group-news-low))
356 "*Controls the highlighting of group buffer lines. 356 "*Controls the highlighting of group buffer lines.
357 357
358 Below is a list of `Form'/`Face' pairs. When deciding how a a 358 Below is a list of `Form'/`Face' pairs. When deciding how a a
359 particular group line should be displayed, each form is 359 particular group line should be displayed, each form is
360 evaluated. The content of the face field after the first true form is 360 evaluated. The content of the face field after the first true form is