Re: 2 x summary buffer line color

[Oleksandr Gavenko]

On 2012-11-29, Emanuel Berg wrote:

> 2) How do you define your own highlighting as for read and unread
> articles? Again, I added this to .gnus, but it fell short because I
> don't know how to define those last elements of the association list
> element (they are not Emacs variables, and not Emacs functions, and
> those are the only things I know how to track (with C-h v and C-h f,
> respectively)).
>
> (setq gnus-summary-highlight
>       '(((eq mark gnus-unread-mark) . gnus-summary-normal-unread)
>         (t . gnus-summary-normal-read) ))

I just copy piece in some way relevant code from my '.emacs':

;; 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))
     ))

-- 
Best regards!