From 7cfba5b16b834b9ff330244d9c7fc8700930160e Mon Sep 17 00:00:00 2001
From: Carsten Dominik <carsten.dominik@gmail.com>
Date: Sun, 4 Apr 2010 22:45:26 +0200
Subject: [PATCH] Control case sensitivity in index generation

---
 lisp/ChangeLog      | 5 +++++
 lisp/org-publish.el | 3 ++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 629b8c0dc..b699a945e 100755
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-04-04  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* org-publish.el (org-publish-aux-preprocess): Control case
+	sensitivity.
+
 2010-04-04  Bastien Guerry  <bzg@altern.org>
 
 	* org.el (org-splice-latex-header): Fix typo.
diff --git a/lisp/org-publish.el b/lisp/org-publish.el
index be23331ef..6036f67ff 100644
--- a/lisp/org-publish.el
+++ b/lisp/org-publish.el
@@ -724,7 +724,8 @@ the project."
 (defvar backend) ; dynamically scoped
 (defun org-publish-aux-preprocess ()
   "Find index entries and write them to an .orgx file."
-  (let (entry index target)
+  (let ((case-fold-search t)
+	entry index target)
     (goto-char (point-min))
     (while
 	(and