From: Juanma Barranquero <lekktu@gmail.com>
Date: Fri, 14 Feb 2003 07:02:13 +0000 (+0000)
Subject: (display-time-string-forms): Add face property to mail string.
X-Git-Tag: ttn-vms-21-2-B4~11201
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=572e07532face80b82d92ddc55effeb029827cca;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 89724f7323d..4ddde522943 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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'
diff --git a/lisp/time.el b/lisp/time.el
index 09e5e6b76bd..c0b6c6ab6bd 100644
--- a/lisp/time.el
+++ b/lisp/time.el
@@ -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)))