Agenda: Show time-of-day in block also after day 1

Lukas Stelmach writes:

> Isn't it wrong when a note like this:
>
> * A very interesting meeting 11:15-12:00
>  <2009-11-30 Mon>--<2009-12-01 Tue>
>
> Shows up in the agenda time gird only on monday while being untimed on
> tuesday? To make it right I do
>
> * A very interesting meeting
>  <2009-11-30 Mon 11:15>--<2009-11-30 Mon 12:00>
>  <2009-12-01 Tue 11:15>--<2009-12-01 Tue 12:00>
>
> or simply
>
> * A very interesting meeting 11:15-12:00
>  <2009-11-30 Mon>
>  <2009-12-01 Tue>
>
> Which works but doesn't show the recurrence counter.

lisp/ChangeLog

@@ -1,5 +1,8 @@
 2009-11-26  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-agenda.el (org-agenda-get-blocks): Look at time string also
+	on days after the first one.
+
 	* org.el (org-insert-heading): Also check for item before assuming
 	before-first-heading condition.
 

lisp/org-agenda.el

@@ -4481,7 +4481,7 @@ FRACTION is what fraction of the head-warning time has passed."
 				 org-agenda-timerange-leaders)
 			    (1+ (- d0 d1)) (1+ (- d2 d1)))
 			   head category tags
-			   (if (= d0 d1) timestr))))
+			   timestr)))
 	      (org-add-props txt props
 		'org-marker marker 'org-hd-marker hdmarker
 		'type "block" 'date date