Make template searches case sensitive

lisp/ChangeLog

@@ -1,5 +1,10 @@
 2009-12-11  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org.el (org-fill-template): Make template searches case sensitive.
+
+	* org-exp.el (org-export): Use "1" as a sign to export only the
+	subtree.
+
 	* org-colview-xemacs.el (org-columns-edit-value): Use
 	org-unrestricted property.
 

lisp/org.el

@@ -16477,7 +16477,8 @@ N may optionally be the number of spaces to remove."
 
 (defun org-fill-template (template alist)
   "Find each %key of ALIST in TEMPLATE and replace it."
-  (let (entry key value)
+  (let ((case-fold-search nil)
+	entry key value)
     (setq alist (sort (copy-sequence alist)
 		      (lambda (a b) (< (length (car a)) (length (car b))))))
     (while (setq entry (pop alist))