2078 (gnus-thread-total-score |
2078 (gnus-thread-total-score |
2079 (gnus-id-to-thread (mail-header-id (gnus-summary-article-header))))))) |
2079 (gnus-id-to-thread (mail-header-id (gnus-summary-article-header))))))) |
2080 |
2080 |
2081 ;; Especially highlight my message and replays to me. |
2081 ;; Especially highlight my message and replays to me. |
2082 (my--eval-after-load gnus-sum |
2082 (my--eval-after-load gnus-sum |
2083 (defface my-gnus-own-unread-face nil |
2083 (defface my/gnus-own-unread-face nil |
2084 "Use this face to display own postings in Summary Buffer") |
2084 "Use this face to display own postings in Summary Buffer" |
2085 (copy-face 'gnus-summary-high-unread-face 'my-gnus-own-unread-face) |
2085 :group 'my/gnus) |
2086 (set-face-background 'my-gnus-own-unread-face "linen") |
2086 (copy-face 'gnus-summary-high-unread-face 'my/gnus-own-unread-face) |
|
2087 (set-face-background 'my/gnus-own-unread-face "linen") |
2087 (add-to-list 'gnus-summary-highlight |
2088 (add-to-list 'gnus-summary-highlight |
2088 '((and (> score 190) (eq mark gnus-unread-mark)) . my-gnus-own-unread-face)) |
2089 '((and (> score 190) (eq mark gnus-unread-mark)) . my/gnus-own-unread-face)) |
2089 (defface my-gnus-own-ancient-face nil |
2090 (defface my/gnus-own-ancient-face nil |
2090 "Use this face to display own postings in Summary Buffer") |
2091 "Use this face to display own postings in Summary Buffer" |
2091 (copy-face 'gnus-summary-high-ancient-face 'my-gnus-own-ancient-face) |
2092 :group 'my/gnus) |
2092 (set-face-background 'my-gnus-own-ancient-face "linen") |
2093 (copy-face 'gnus-summary-high-ancient-face 'my/gnus-own-ancient-face) |
|
2094 (set-face-background 'my/gnus-own-ancient-face "linen") |
2093 (add-to-list 'gnus-summary-highlight |
2095 (add-to-list 'gnus-summary-highlight |
2094 '((and (> score 190) (eq mark gnus-ancient-mark)) . my-gnus-own-ancient-face)) |
2096 '((and (> score 190) (eq mark gnus-ancient-mark)) . my/gnus-own-ancient-face)) |
2095 (defface my-gnus-own-ticked-face nil |
2097 (defface my/gnus-own-ticked-face nil |
2096 "Use this face to display own postings in Summary Buffer") |
2098 "Use this face to display own postings in Summary Buffer" |
2097 (copy-face 'gnus-summary-high-ticked-face 'my-gnus-own-ticked-face) |
2099 :group 'my/gnus) |
2098 (set-face-background 'my-gnus-own-ticked-face "linen") |
2100 (copy-face 'gnus-summary-high-ticked-face 'my/gnus-own-ticked-face) |
|
2101 (set-face-background 'my/gnus-own-ticked-face "linen") |
2099 (add-to-list 'gnus-summary-highlight |
2102 (add-to-list 'gnus-summary-highlight |
2100 '((and (> score 190) (or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark))) . my-gnus-own-ticked-face)) |
2103 '((and (> score 190) (or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark))) . my/gnus-own-ticked-face)) |
2101 (defface my-gnus-fup-face nil |
2104 (defface my/gnus-fup-face nil |
2102 "Use this face to display direct fups to my postings.") |
2105 "Use this face to display direct fups to my postings." |
2103 (copy-face 'gnus-summary-high-unread-face 'my-gnus-fup-face) |
2106 :group 'my/gnus) |
2104 (set-face-background 'my-gnus-fup-face "honeydew") |
2107 (copy-face 'gnus-summary-high-unread-face 'my/gnus-fup-face) |
|
2108 (set-face-background 'my/gnus-fup-face "honeydew") |
2105 (add-to-list 'gnus-summary-highlight |
2109 (add-to-list 'gnus-summary-highlight |
2106 '((and (<= 90 score) (<= score 110) (eq mark gnus-unread-mark)) . my-gnus-fup-face)) ) |
2110 '((and (<= 90 score) (<= score 110) (eq mark gnus-unread-mark)) . my/gnus-fup-face)) ) |
2107 |
2111 |
2108 ;; (setq gnus-home-score-file |
2112 ;; (setq gnus-home-score-file |
2109 ;; ;; All groups that match the regexp `"\\.emacs"' |
2113 ;; ;; All groups that match the regexp `"\\.emacs"' |
2110 ;; '(("\\.emacs" "emacs.SCORE") |
2114 ;; '(("\\.emacs" "emacs.SCORE") |
2111 ;; ;; All the comp groups in one score file |
2115 ;; ;; All the comp groups in one score file |