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

[Michael Piotrowski <mxp@dynalabs.de>]

On 2011-05-27, pmlists@free.fr (Peter Münster) wrote:

> On Thu, May 26 2011, Reiner Steib wrote:
>
>> You should use e.g. `%3{' and `%3}' _directly_ in
>> `gnus-summary-line-format' after defining face `gnus-face-2' with
>> `defface'.   No need for a user-format-function.
>> 
>> [ Re-reading you goal... Hm, maybe this is not sufficient for you. ]
>
> Indeed. I need something like "if" or "cond". Different faces for
> different marks.

I just ran into the same problem: I'm in the process of migrating my
Gnus setup from XEmacs to FSF Emacs (as it seems unlikely that the
XEmacs-related problems will be fixed) and I have a similar user format
function.  It works fine on XEmacs using extents, e.g.,

--8<---------------cut here---------------start------------->8---
    ...
    (cond
     ((= message-day today)
      (setq my-ext (make-extent 0 10 message-date))
      (set-extent-property my-ext 'duplicable t)
      (set-extent-face my-ext 'mxp-gnus-summary-today-face))
    ...
--8<---------------cut here---------------end--------------->8---

For FSF Emacs, I changed it to use text properties, but, as Peter noted,
it seems that the face property is overwritten (other properties are
preserved).

Greetings

-- 
Dr.-Ing. Michael Piotrowski, M.A.                   <mxp@dynalabs.de>
Public key at <http://www.dynalabs.de/mxp/pubkey.txt> (ID 0x1614A044)