Stop linking to directories in sitemap.

lisp/ChangeLog

@@ -2,6 +2,7 @@
 
 	* org-publish.el (org-publish-org-index): Create a section in the
 	index file.
+	(org-publish-org-index): Stop linking to directories.
 
 	* org.el (org-emphasis-alist): Use span instead of <u> to
 	underline text.

lisp/org-publish.el

@@ -656,9 +656,8 @@ Default for INDEX-FILENAME is 'index.org'."
 		      (pop subdirs))
 		    (dolist (d subdirs)
 		      (setq subdir (concat subdir d "/"))
-		      (insert (concat indent-str " + [[file:" 
-				      subdir "][" d "/]]\n"))
-		      (setq indent-str (make-string 
+		      (insert (concat indent-str " + " d "\n"))
+		      (setq indent-str (make-string
 					(+ (length indent-str) 2) ?\ )))))))
 	    ;; This is common to 'flat and 'tree
 	    (insert (concat indent-str " + [[file:" link "]["