Especially highlight my message and replays to me.
--- a/.emacs-my Sun Aug 12 01:21:39 2012 +0300
+++ b/.emacs-my Sun Aug 12 02:03:45 2012 +0300
@@ -1466,6 +1466,8 @@
gnus-thread-sort-functions '(gnus-thread-sort-by-date gnus-thread-sort-by-total-score)
)
+;; gnus-summary-mark-below gnus-summary-default-score gnus-summary-default-high-score gnus-summary-default-low-score
+
;; Scoring, adaptive score.
(setq
gnus-use-scoring t
@@ -1494,6 +1496,35 @@
(add-hook 'message-sent-hook 'gnus-score-followup-thread)
))
+;; Especially highlight my message and replays to me.
+(eval-after-load 'gnus-sum
+ '(progn
+ (defface my-gnus-own-unread-face nil
+ "Use this face to display own postings in Summary Buffer")
+ (copy-face 'gnus-summary-high-unread-face 'my-gnus-own-unread-face)
+ (set-face-background 'my-gnus-own-unread-face "linen")
+ (add-to-list 'gnus-summary-highlight
+ '((and (> score 190) (eq mark gnus-unread-mark)) . my-gnus-own-unread-face))
+ (defface my-gnus-own-ancient-face nil
+ "Use this face to display own postings in Summary Buffer")
+ (copy-face 'gnus-summary-high-ancient-face 'my-gnus-own-ancient-face)
+ (set-face-background 'my-gnus-own-ancient-face "linen")
+ (add-to-list 'gnus-summary-highlight
+ '((and (> score 190) (eq mark gnus-ancient-mark)) . my-gnus-own-ancient-face))
+ (defface my-gnus-own-ticked-face nil
+ "Use this face to display own postings in Summary Buffer")
+ (copy-face 'gnus-summary-high-ticked-face 'my-gnus-own-ticked-face)
+ (set-face-background 'my-gnus-own-ticked-face "linen")
+ (add-to-list 'gnus-summary-highlight
+ '((and (> score 190) (or (eq mark gnus-dormant-mark) (eq mark gnus-ticked-mark))) . my-gnus-own-ticked-face))
+ (defface my-gnus-fup-face nil
+ "Use this face to display direct fups to my postings.")
+ (copy-face 'gnus-summary-high-unread-face 'my-gnus-fup-face)
+ (set-face-background 'my-gnus-fup-face "honeydew")
+ (add-to-list 'gnus-summary-highlight
+ '((and (<= 90 score) (<= score 110) (eq mark gnus-unread-mark)) . my-gnus-fup-face))
+ ))
+
;; (setq gnus-home-score-file
;; ;; All groups that match the regexp `"\\.emacs"'
;; '(("\\.emacs" "emacs.SCORE")