Especially highlight my message and replays to me.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Sun, 12 Aug 2012 02:03:45 +0300
changeset 906 da962aa69458
parent 905 ad0a4c3396f9
child 907 8a6c364061e2
Especially highlight my message and replays to me.
.emacs-my
--- 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")