(display-time-string-forms): Add face property to mail string.

This commit is contained in:
Juanma Barranquero 2003-02-14 07:02:13 +00:00
parent 544dd97560
commit 572e07532f
2 changed files with 6 additions and 0 deletions

View file

@ -1,3 +1,8 @@
2003-02-14 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> (tiny change)
* time.el (display-time-string-forms): Add face property to mail
string.
2003-02-14 Juanma Barranquero <lektu@terra.es>
* international/mule-cmds.el (view-hello-file): Use `view-file'

View file

@ -171,6 +171,7 @@ depend on `display-time-day-and-date' and `display-time-24hr-format'."
,@(list :background (face-attribute
display-time-mail-face
:background)))
'face display-time-mail-face
'help-echo "You have new mail; mouse-2: Read mail"
'local-map (make-mode-line-mouse-map 'mouse-2
read-mail-command)))