Fix priority bug in icalendar export.

lisp/ChangeLog

@@ -1,5 +1,8 @@
 2008-10-28  Carsten Dominik  <dominik@science.uva.nl>
 
+	* org-exp.el (org-print-icalendar-entries): Make the exported
+	priorities compatible with RFC 2445.
+
 	* org-clock.el (org-clock-save): Insert time stamp without
 	dependence on time-stamp.el.
 

lisp/org-exp.el

@@ -4384,9 +4384,9 @@ END:VEVENT\n"
 			hd (concat (substring hd 0 (match-beginning 1))
 				   (substring hd (match-end 1))))
 		(setq pri org-default-priority))
-	      (setq pri (floor (1+ (* 8. (/ (float (- org-lowest-priority pri))
-					    (- org-lowest-priority org-highest-priority))))))
-
+	      (setq pri (floor (- 9 (* 8. (/ (float (- org-lowest-priority pri))
+					     (- org-lowest-priority org-highest-priority))))))
+	      
 	      (princ (format "BEGIN:VTODO
 UID: %s
 %s