Mercurial > emacs

comparison lisp/gnus/gnus-sum.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 a1b34dec1104 53e7abe8917f
children f9a65d7ebd29
comparison
equal deleted inserted replaced
90196:82d495f87e7b 90197:b7da78284d4c
915 "*If non-nil, display an arrow highlighting the current article." 915 "*If non-nil, display an arrow highlighting the current article."
916 :version "22.1" 916 :version "22.1"
917 :group 'gnus-summary 917 :group 'gnus-summary
918 :type 'boolean) 918 :type 'boolean)
919 919
920 (defcustom gnus-summary-selected-face 'gnus-summary-selected-face 920 (defcustom gnus-summary-selected-face 'gnus-summary-selected
921 "Face used for highlighting the current article in the summary buffer." 921 "Face used for highlighting the current article in the summary buffer."
922 :group 'gnus-summary-visual 922 :group 'gnus-summary-visual
923 :type 'face) 923 :type 'face)
924 924
925 (defvar gnus-tmp-downloaded nil) 925 (defvar gnus-tmp-downloaded nil)
926 926
927 (defcustom gnus-summary-highlight 927 (defcustom gnus-summary-highlight
928 '(((eq mark gnus-canceled-mark) 928 '(((eq mark gnus-canceled-mark)
929 . gnus-summary-cancelled-face) 929 . gnus-summary-cancelled)
930 ((and uncached (> score default-high)) 930 ((and uncached (> score default-high))
931 . gnus-summary-high-undownloaded-face) 931 . gnus-summary-high-undownloaded)
932 ((and uncached (< score default-low)) 932 ((and uncached (< score default-low))
933 . gnus-summary-low-undownloaded-face) 933 . gnus-summary-low-undownloaded)
934 (uncached 934 (uncached
935 . gnus-summary-normal-undownloaded-face) 935 . gnus-summary-normal-undownloaded)
936 ((and (> score default-high) 936 ((and (> score default-high)
937 (or (eq mark gnus-dormant-mark) 937 (or (eq mark gnus-dormant-mark)
938 (eq mark gnus-ticked-mark))) 938 (eq mark gnus-ticked-mark)))
939 . gnus-summary-high-ticked-face) 939 . gnus-summary-high-ticked)
940 ((and (< score default-low) 940 ((and (< score default-low)
941 (or (eq mark gnus-dormant-mark) 941 (or (eq mark gnus-dormant-mark)
942 (eq mark gnus-ticked-mark))) 942 (eq mark gnus-ticked-mark)))
943 . gnus-summary-low-ticked-face) 943 . gnus-summary-low-ticked)
944 ((or (eq mark gnus-dormant-mark) 944 ((or (eq mark gnus-dormant-mark)
945 (eq mark gnus-ticked-mark)) 945 (eq mark gnus-ticked-mark))
946 . gnus-summary-normal-ticked-face) 946 . gnus-summary-normal-ticked)
947 ((and (> score default-high) (eq mark gnus-ancient-mark)) 947 ((and (> score default-high) (eq mark gnus-ancient-mark))
948 . gnus-summary-high-ancient-face) 948 . gnus-summary-high-ancient)
949 ((and (< score default-low) (eq mark gnus-ancient-mark)) 949 ((and (< score default-low) (eq mark gnus-ancient-mark))
950 . gnus-summary-low-ancient-face) 950 . gnus-summary-low-ancient)
951 ((eq mark gnus-ancient-mark) 951 ((eq mark gnus-ancient-mark)
952 . gnus-summary-normal-ancient-face) 952 . gnus-summary-normal-ancient)
953 ((and (> score default-high) (eq mark gnus-unread-mark)) 953 ((and (> score default-high) (eq mark gnus-unread-mark))
954 . gnus-summary-high-unread-face) 954 . gnus-summary-high-unread)
955 ((and (< score default-low) (eq mark gnus-unread-mark)) 955 ((and (< score default-low) (eq mark gnus-unread-mark))
956 . gnus-summary-low-unread-face) 956 . gnus-summary-low-unread)
957 ((eq mark gnus-unread-mark) 957 ((eq mark gnus-unread-mark)
958 . gnus-summary-normal-unread-face) 958 . gnus-summary-normal-unread)
959 ((> score default-high) 959 ((> score default-high)
960 . gnus-summary-high-read-face) 960 . gnus-summary-high-read)
961 ((< score default-low) 961 ((< score default-low)
962 . gnus-summary-low-read-face) 962 . gnus-summary-low-read)
963 (t 963 (t
964 . gnus-summary-normal-read-face)) 964 . gnus-summary-normal-read))
965 "*Controls the highlighting of summary buffer lines. 965 "*Controls the highlighting of summary buffer lines.
966 966
967 A list of (FORM . FACE) pairs. When deciding how a a particular 967 A list of (FORM . FACE) pairs. When deciding how a a particular
968 summary line should be displayed, each form is evaluated. The content 968 summary line should be displayed, each form is evaluated. The content
969 of the face field after the first true form is used. You can change 969 of the face field after the first true form is used. You can change