Fixed the deadline priorities.

ChangeLog

@@ -1,3 +1,8 @@
+2008-02-03  Carsten Dominik  <dominik@science.uva.nl>
+
+	* org.el (org-agenda-get-deadlines): Make sure priorities increase
+	as the due date approaches and is passed.
+
 2008-02-01  Carsten Dominik  <dominik@science.uva.nl>
 
 	* org.el (org-make-link-regexps): Improve the regular expression

org.el

@@ -21387,7 +21387,7 @@ the documentation of `org-diary'."
 		(org-add-props txt props
 		  'org-marker (org-agenda-new-marker pos)
 		  'org-hd-marker (org-agenda-new-marker pos1)
-		  'priority (+ (if upcomingp (floor (* dfrac 10.)) 100)
+		  'priority (+ (floor (* dfrac 100.))
 			       (org-get-priority txt))
 		  'org-category category
 		  'type (if upcomingp "upcoming-deadline" "deadline")