1490 ;; Increase the score for followups to a sent article. |
1492 ;; Increase the score for followups to a sent article. |
1491 (eval-after-load 'gnus-score |
1493 (eval-after-load 'gnus-score |
1492 '(progn |
1494 '(progn |
1493 (add-hook 'message-sent-hook 'gnus-score-followup-article) |
1495 (add-hook 'message-sent-hook 'gnus-score-followup-article) |
1494 (add-hook 'message-sent-hook 'gnus-score-followup-thread) |
1496 (add-hook 'message-sent-hook 'gnus-score-followup-thread) |
|
1497 )) |
|
1498 |
|
1499 ;; Especially highlight my message and replays to me. |
|
1500 (eval-after-load 'gnus-sum |
|
1501 '(progn |
|
1502 (defface my-gnus-own-unread-face nil |
|
1503 "Use this face to display own postings in Summary Buffer") |
|
1504 (copy-face 'gnus-summary-high-unread-face 'my-gnus-own-unread-face) |
|
1505 (set-face-background 'my-gnus-own-unread-face "linen") |
|
1506 (add-to-list 'gnus-summary-highlight |
|
1507 '((and (> score 190) (eq mark gnus-unread-mark)) . my-gnus-own-unread-face)) |
|
1508 (defface my-gnus-own-ancient-face nil |
|
1509 "Use this face to display own postings in Summary Buffer") |
|
1510 (copy-face 'gnus-summary-high-ancient-face 'my-gnus-own-ancient-face) |
|
1511 (set-face-background 'my-gnus-own-ancient-face "linen") |
|
1512 (add-to-list 'gnus-summary-highlight |
|
1513 '((and (> score 190) (eq mark gnus-ancient-mark)) . my-gnus-own-ancient-face)) |
|
1514 (defface my-gnus-own-ticked-face nil |
|
1515 "Use this face to display own postings in Summary Buffer") |
|
1516 (copy-face 'gnus-summary-high-ticked-face 'my-gnus-own-ticked-face) |
|
1517 (set-face-background 'my-gnus-own-ticked-face "linen") |
|
1518 (add-to-list 'gnus-summary-highlight |
|
1519 '((and (> score 190) (or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark))) . my-gnus-own-ticked-face)) |
|
1520 (defface my-gnus-fup-face nil |
|
1521 "Use this face to display direct fups to my postings.") |
|
1522 (copy-face 'gnus-summary-high-unread-face 'my-gnus-fup-face) |
|
1523 (set-face-background 'my-gnus-fup-face "honeydew") |
|
1524 (add-to-list 'gnus-summary-highlight |
|
1525 '((and (<= 90 score) (<= score 110) (eq mark gnus-unread-mark)) . my-gnus-fup-face)) |
1495 )) |
1526 )) |
1496 |
1527 |
1497 ;; (setq gnus-home-score-file |
1528 ;; (setq gnus-home-score-file |
1498 ;; ;; All groups that match the regexp `"\\.emacs"' |
1529 ;; ;; All groups that match the regexp `"\\.emacs"' |
1499 ;; '(("\\.emacs" "emacs.SCORE") |
1530 ;; '(("\\.emacs" "emacs.SCORE") |