Oleksandr Gavenko <[email protected]> writes: > ;; 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)) > ))
OK, that worked, but it would probably look better if you either changed the attributes of those standard faces, or, defined you own faces. All that copying is a bit "hackish" :) (But like I said, it worked, so thanks.) I wonder though, you say, my articles, replies to me, etc., but, for example in the first case, will that not simply highlight all articles that you've not read? -- Emanuel Berg - programmer (hire me!) CV + code + screenshots: http://user.it.uu.se/~embe8573 _______________________________________________ info-gnus-english mailing list [email protected] https://lists.gnu.org/mailman/listinfo/info-gnus-english
