2329 ;; Especially highlight my message and replays to me. |
2329 ;; Especially highlight my message and replays to me. |
2330 (my--eval-after-load gnus-sum |
2330 (my--eval-after-load gnus-sum |
2331 (defface my-gnus-own-unread-face nil |
2331 (defface my-gnus-own-unread-face nil |
2332 "Use this face to display own postings in Summary Buffer" |
2332 "Use this face to display own postings in Summary Buffer" |
2333 :group 'my-gnus) |
2333 :group 'my-gnus) |
2334 (copy-face 'gnus-summary-high-unread-face 'my-gnus-own-unread-face) |
2334 (copy-face 'gnus-summary-high-unread 'my-gnus-own-unread-face) |
2335 (set-face-background 'my-gnus-own-unread-face "linen") |
2335 (set-face-background 'my-gnus-own-unread-face "linen") |
2336 (add-to-list 'gnus-summary-highlight |
2336 (add-to-list 'gnus-summary-highlight |
2337 '((and (> score 190) (eq mark gnus-unread-mark)) . my-gnus-own-unread-face)) |
2337 '((and (> score 190) (eq mark gnus-unread-mark)) . my-gnus-own-unread-face)) |
2338 (defface my-gnus-own-ancient-face nil |
2338 (defface my-gnus-own-ancient-face nil |
2339 "Use this face to display own postings in Summary Buffer" |
2339 "Use this face to display own postings in Summary Buffer" |
2340 :group 'my-gnus) |
2340 :group 'my-gnus) |
2341 (copy-face 'gnus-summary-high-ancient-face 'my-gnus-own-ancient-face) |
2341 (copy-face 'gnus-summary-high-ancient 'my-gnus-own-ancient-face) |
2342 (set-face-background 'my-gnus-own-ancient-face "linen") |
2342 (set-face-background 'my-gnus-own-ancient-face "linen") |
2343 (add-to-list 'gnus-summary-highlight |
2343 (add-to-list 'gnus-summary-highlight |
2344 '((and (> score 190) (eq mark gnus-ancient-mark)) . my-gnus-own-ancient-face)) |
2344 '((and (> score 190) (eq mark gnus-ancient-mark)) . my-gnus-own-ancient-face)) |
2345 (defface my-gnus-own-ticked-face nil |
2345 (defface my-gnus-own-ticked-face nil |
2346 "Use this face to display own postings in Summary Buffer" |
2346 "Use this face to display own postings in Summary Buffer" |
2347 :group 'my-gnus) |
2347 :group 'my-gnus) |
2348 (copy-face 'gnus-summary-high-ticked-face 'my-gnus-own-ticked-face) |
2348 (copy-face 'gnus-summary-high-ticked 'my-gnus-own-ticked-face) |
2349 (set-face-background 'my-gnus-own-ticked-face "linen") |
2349 (set-face-background 'my-gnus-own-ticked-face "linen") |
2350 (add-to-list 'gnus-summary-highlight |
2350 (add-to-list 'gnus-summary-highlight |
2351 '((and (> score 190) (or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark))) . my-gnus-own-ticked-face)) |
2351 '((and (> score 190) (or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark))) . my-gnus-own-ticked-face)) |
2352 (defface my-gnus-fup-face nil |
2352 (defface my-gnus-fup-face nil |
2353 "Use this face to display direct fups to my postings." |
2353 "Use this face to display direct fups to my postings." |
2354 :group 'my-gnus) |
2354 :group 'my-gnus) |
2355 (copy-face 'gnus-summary-high-unread-face 'my-gnus-fup-face) |
2355 (copy-face 'gnus-summary-high-unread 'my-gnus-fup-face) |
2356 (set-face-background 'my-gnus-fup-face "honeydew") |
2356 (set-face-background 'my-gnus-fup-face "honeydew") |
2357 (add-to-list 'gnus-summary-highlight |
2357 (add-to-list 'gnus-summary-highlight |
2358 '((and (<= 90 score) (<= score 110) (eq mark gnus-unread-mark)) . my-gnus-fup-face)) ) |
2358 '((and (<= 90 score) (<= score 110) (eq mark gnus-unread-mark)) . my-gnus-fup-face)) ) |
2359 |
2359 |
2360 ;; (setq gnus-home-score-file |
2360 ;; (setq gnus-home-score-file |