* gnus-summary-hilight change
@ 2002-08-01 22:09 Scott A Crosby
0 siblings, 0 replies; only message in thread
From: Scott A Crosby @ 2002-08-01 22:09 UTC (permalink / raw)
I was looking at gnus-summary-hilight with scoring and thought that we
should have a high&low level. IE, anything between high&low should be
colored normal, not just messages with a score of normal.
Implementation:
(setq my-gnus-high-level 100)
(setq my-gnus-low-level -500)
(setq gnus-summary-highlight
'(((= mark gnus-canceled-mark)
. gnus-summary-cancelled-face)
((and (> score my-gnus-high-level)
(or (= mark gnus-dormant-mark)
(= mark gnus-ticked-mark)))
. gnus-summary-high-ticked-face)
((and (< score my-gnus-low-level)
(or (= mark gnus-dormant-mark)
(= mark gnus-ticked-mark)))
. gnus-summary-low-ticked-face)
((or (= mark gnus-dormant-mark)
(= mark gnus-ticked-mark))
. gnus-summary-normal-ticked-face)
((and (> score my-gnus-high-level) (= mark gnus-ancient-mark))
. gnus-summary-high-ancient-face)
((and (< score my-gnus-low-level) (= mark gnus-ancient-mark))
. gnus-summary-low-ancient-face)
((= mark gnus-ancient-mark)
. gnus-summary-normal-ancient-face)
((and (> score my-gnus-high-level) (= mark gnus-unread-mark))
. gnus-summary-high-unread-face)
((and (< score my-gnus-low-level) (= mark gnus-unread-mark))
. gnus-summary-low-unread-face)
((= mark gnus-unread-mark)
. gnus-summary-normal-unread-face)
((and (> score my-gnus-high-level) (memq mark (list gnus-downloadable-mark
gnus-undownloaded-mark)))
. gnus-summary-high-unread-face)
((and (< score my-gnus-low-level) (memq mark (list gnus-downloadable-mark
gnus-undownloaded-mark)))
. gnus-summary-low-unread-face)
((memq mark (list gnus-downloadable-mark gnus-undownloaded-mark))
. gnus-summary-normal-unread-face)
((> score my-gnus-high-level)
. gnus-summary-high-read-face)
((< score my-gnus-low-level)
. gnus-summary-low-read-face)
(t
. gnus-summary-normal-read-face)))
Scott
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2002-08-01 22:09 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2002-08-01 22:09 gnus-summary-hilight change Scott A Crosby
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).