From 21a8656af6bec94c74dd5ddc4d246176270acfd7 Mon Sep 17 00:00:00 2001
From: Carsten Dominik <carsten.dominik@gmail.com>
Date: Wed, 7 Oct 2009 10:32:58 +0200
Subject: [PATCH] Fix bug with agenda category

---
 lisp/org-agenda.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 018000c36..fd7c7d329 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -4607,7 +4607,7 @@ Any match of REMOVE-RE will be removed from TXT."
       ;; And finally add the text properties
       (remove-text-properties 0 (length rtn) '(line-prefix t wrap-prefix t) rtn)
       (org-add-props rtn nil
-	'org-category (downcase thecategory)
+	'org-category (if thecategory (downcase thecategory) category)
 	'tags (mapcar 'org-downcase-keep-props tags)
 	'org-highest-priority org-highest-priority
 	'org-lowest-priority org-lowest-priority