Re: setting face in gnus-user-format-function-x

[pmlists@free.fr (Peter Münster)]

On Tue, Jun 07 2011, Michael Piotrowski wrote:

> I just tried it.  Using `gnus-summary-update-hook' works.  For my
> application--a different face for the date, depending on the age of the
> message--I used the following two-step approach:
>
> 1. I have a user format function that adds a non-face property, roughly
>    something like this:
>
>     (cond
>      ((= message-day today)
>       (put-text-property 0 10 'mxp-date 'today message-date))
>      ((= message-day (1- today))
>       (put-text-property 0 10 'mxp-date 'yesterday message-date))
>      (t
>       (put-text-property 0 10 'mxp-date 'older message-date)))
>
> 2. I have a function that looks for this property (using
>    `gnus-find-text-property-region') and sets the desired face.  This
>    function is called by `gnus-summary-update-hook'.
>
> Up to now, this approach seems to work nicely.  Maybe you can adapt it
> to your needs.

Unfortunately no success... :(

This is, what I have now:

--8<---------------cut here---------------start------------->8---
(defun gnus-user-format-function-x (header)
  (let ((my-string (format "%c" gnus-tmp-unread)))
    (put-text-property 0 0 'my-test 'my-test my-string)
    my-string))

(defun my-summary-update ()
  (dolist (region (gnus-find-text-property-region (point-min)
                                                  (point-max)
                                                  'my-test))
    (destructuring-bind (start end function) region
      (put-text-property start end 'face gnus-face-2)
      (put-text-property start end 'gnus-face t))))

(add-hook 'gnus-summary-update-hook 'my-summary-update)
--8<---------------cut here---------------end--------------->8---

But the face is not set.

I've also tried Lars' suggestion to use
gnus-summary-update-article-line, but I don't know how to supply the
2 required arguments "article" and "header".

So, any help would be appreciated!
(sorry for my lack of elisp-experience)

Greetings,
-- 
           Peter