# HG changeset patch # User Oleksandr Gavenko # Date 1344726225 -10800 # Node ID da962aa6945893c8a7478456c2a2ad2cc16614ec # Parent ad0a4c3396f91482363e95bfe7e46c2586faaf01 Especially highlight my message and replays to me. diff -r ad0a4c3396f9 -r da962aa69458 .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")