diff -cr lisp/org-agenda.el /home/minaev/.el/org/org-agenda.el
*** lisp/org-agenda.el	2009-04-22 09:42:54.000000000 +0500
--- /home/minaev/.el/org/org-agenda.el	2009-05-22 12:16:13.000000000 +0500
***************
*** 2798,2804 ****
  				 'org-agenda-date))
  	    (put-text-property s (1- (point)) 'org-date-line t)
  	    (put-text-property s (1- (point)) 'org-day-cnt day-cnt)
! 	    (if todayp (put-text-property s (1- (point)) 'org-today t))
  	    (if rtnall (insert
  			(org-finalize-agenda-entries
  			 (org-agenda-add-time-grid-maybe
--- 2798,2806 ----
  				 'org-agenda-date))
  	    (put-text-property s (1- (point)) 'org-date-line t)
  	    (put-text-property s (1- (point)) 'org-day-cnt day-cnt)
! 	    (when todayp 
! 	      (put-text-property s (1- (point)) 'org-today t)
! 	      (put-text-property s (1- (point)) 'face 'org-agenda-date-today))
  	    (if rtnall (insert
  			(org-finalize-agenda-entries
  			 (org-agenda-add-time-grid-maybe
diff -cr lisp/org-faces.el /home/minaev/.el/org/org-faces.el
*** lisp/org-faces.el	2009-04-22 09:42:54.000000000 +0500
--- /home/minaev/.el/org/org-faces.el	2009-05-22 12:17:04.000000000 +0500
***************
*** 461,466 ****
--- 461,473 ----
    (set-face-doc-string 'org-agenda-date
  		       "Face used in agenda for normal days."))
  
+ (unless (facep 'org-agenda-date-today)
+   (copy-face 'org-agenda-date 'org-agenda-date-today)
+   (set-face-doc-string 'org-agenda-date-today
+ 		       "Face used in agenda for today.")
+   (when (fboundp 'set-face-attribute)
+     (set-face-attribute 'org-agenda-date-today nil :weight 'bold :italic 't)))
+ 
  (unless (facep 'org-agenda-date-weekend)
    (copy-face 'org-agenda-date 'org-agenda-date-weekend)
    (set-face-doc-string 'org-agenda-date-weekend
Only in /home/minaev/.el/org: semantic.cache