Agenda: Fix problem with block entries.

This bug was caused by commit
8c177dc832980bd8cf23fc2ae72b18e0b472b59e, and reported by Matt
Lundin.  The problem was that this commit tried to remove the text
propertes of the MATCH part of an agenda command.  However, in block
commands, the MATCH part is not a string.

lisp/ChangeLog

@@ -1,3 +1,8 @@
+2009-08-18  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* org-agenda.el (org-agenda-get-restriction-and-command): Remove
+	properties only if MATCH really is a string.
+
 2009-08-16  Carsten Dominik  <carsten.dominik@gmail.com>
 
 	* org-latex.el (org-export-latex-packages-alist): Fix

lisp/org-agenda.el

@@ -1807,7 +1807,7 @@ s   Search for keywords                 C   Configure custom agenda commands
 	  (while (setq entry (pop custom1))
 	    (setq key (car entry) desc (nth 1 entry)
 		  type (nth 2 entry)
-		  match (org-no-properties (copy-sequence (nth 3 entry))))
+		  match (nth 3 entry))
 	    (if (> (length key) 1)
 		(add-to-list 'prefixes (string-to-char key))
 	      (insert
@@ -1833,6 +1833,7 @@ s   Search for keywords                 C   Configure custom agenda commands
 		 (t "???"))
 		(cond
 		 ((stringp match)
+		  (setq match (copy-sequence match))
 		  (org-add-props match nil 'face 'org-warning))
 		 (match
 		  (format "set of %d commands" (length match)))