possible bug of display time-range appt in agenda

[Levin <zslevin@gmail.com>]

Put something in the org buffer:
** Do something <2007-10-01 11:30-12:20>

then in the agenda, only "Do something" is displayed, without showing the appt 
time.

I trace the code and find out that: 
 (org-get-time-of-day "<2007-10-01 11:30-12:20>")
which return nil cause this probem.

I do not know if this bug has been mentioned or resolved. I'm posting here in 
case that it is not :)

-Levin

PS. I did a patch, which solves the problem. Yet it is a bit ugly :)

(It is the diff of org-get-time-of-day function. line number may be wrong.)
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -19113,9 +19113,9 @@ HH:MM."
     (when
      (or
       (string-match
-       "\\<\\([012]?[0-9]\\)\\(:\\([0-5][0-9]\\)\\)\\([AaPp][Mm]\\)?\\> *" s)
+       "\\<\\([012]?[0-9]\\)\\(:\\([0-5][0-9]\\)\\)\\([AaPp][Mm]\\)? *" s)
       (string-match
-       "\\<\\([012]?[0-9]\\)\\(:\\([0-5][0-9]\\)\\)?\\([AaPp][Mm]\\)\\> *" 
s))
+       "\\<\\([012]?[0-9]\\)\\(:\\([0-5][0-9]\\)\\)?\\([AaPp][Mm]\\) *" s))
      (let* ((h (string-to-number (match-string 1 s)))
 	    (m (if (match-end 3) (string-to-number (match-string 3 s)) 0))
 	    (ampm (if (match-end 4) (downcase (match-string 4 s))))