haomiao <[EMAIL PROTECTED]> 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
_______________________________________________
info-gnus-english mailing list
info-gnus-english@gnu.org
http://lists.gnu.org/mailman/listinfo/info-gnus-english
