Fix wrong-case matching of TODO keywords in `org-entry-properties'

doc/org.texi

@@ -12534,6 +12534,8 @@ chapter about publishing.
 @i{J@"urgen Vollmer} contributed code generating the table of contents
 in HTML output.
 @item
+@i{Samuel Wales} has provided important feedback and bug reports.
+@item
 @i{Chris Wallace} provided a patch implementing the @samp{QUOTE}
 keyword.
 @item

lisp/ChangeLog

@@ -1,5 +1,8 @@
 2010-01-14  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org.el (org-entry-properties): Don't match wrong-case TODO
+	keywords.
+
 	* org-agenda.el (org-agenda-schedule, org-agenda-deadline):
 	Document that ARG is passed through to remove the date.
 	(org-agenda-bulk-action): Accept prefix arg and pass it on.  Do

lisp/org.el

@@ -12516,6 +12516,7 @@ things up because then unnecessary parsing is avoided."
   (org-with-point-at pom
     (let ((clockstr (substring org-clock-string 0 -1))
 	  (excluded '("TODO" "TAGS" "ALLTAGS" "PRIORITY"))
+	  (case-fold-search nil)
 	  beg end range props sum-props key value string clocksum)
       (save-excursion
 	(when (condition-case nil