Re: howto define dynamic color with gnus-summary-line-format

[Johan Bockgård]

haomiao <miaohaoz@ustc.edu> writes:

> (defun gnus-user-format-function-a (header)
>    "Test dynamic color"
>    (let  ((date-time (format-time-string "%m/%d" (safe-date-to-time
> (mail-header-date header)))))
>       (if (string= date-time (format-time-string "%m/%d"))
>          (propertize date-time 'face 'my-red-face 'mouse-face 'my-blue-
> face)
>          (propertize date-time 'face 'my-blue-face 'mouse-face 'my-red-
> face))))
>
> It seems that gnus will modify the face property of the text
> returned,  but not the mouse-face property.

Try

    [...]
    (propertize date-time 'face 'my-red-face 'mouse-face 'my-blue-face
                'gnus-face t)
    (propertize date-time 'face 'my-blue-face 'mouse-face 'my-red-face
                'gnus-face t)

-- 
Johan Bockgård