Fix bugs with time extraction of deadlines.

lisp/ChangeLog

@@ -1,5 +1,9 @@
 2008-09-04  Carsten Dominik  <dominik@science.uva.nl>
 
+	* org-agenda.el (org-agenda-get-deadlines)
+	(org-agenda-get-scheduled): Avoid `time-of-day' extraction for
+	entries that are pre-warnings of deadlines or reminders.
+
 	* org.el (org-sort-entries-or-items): Make numeric and alpha
 	comparisons ignore any TODO keyword and priority cookie.
 

lisp/org-agenda.el

@@ -3428,7 +3428,8 @@ the documentation of `org-diary'."
 				       (funcall (nth 1 org-agenda-deadline-leaders) diff date)
 				     (format (nth 1 org-agenda-deadline-leaders)
 					     diff)))
-				 head category tags timestr))))
+				 head category tags
+				 (if (not (= diff 0)) nil timestr)))))
 		(setq txt org-agenda-no-heading-message))
 	      (when txt
 		(setq face (org-agenda-deadline-face dfrac wdays))
@@ -3511,7 +3512,8 @@ FRACTION is what fraction of the head-warning time has passed."
 				     (car org-agenda-scheduled-leaders)
 				   (format (nth 1 org-agenda-scheduled-leaders)
 					   (- 1 diff)))
-				 head category tags timestr))))
+				 head category tags
+				 (if (not (= diff 0)) nil timestr)))))
 		(setq txt org-agenda-no-heading-message))
 	      (when txt
 		(setq face