Bug fix in org-publish, with index file names.

Patch from Sebastian Rose.

lisp/ChangeLog

@@ -1,3 +1,7 @@
+2008-07-09  Carsten Dominik  <dominik@science.uva.nl>
+
+	* org-publish.el (org-publish-find-title): Bug fix.
+
 2008-07-07  Carsten Dominik  <dominik@science.uva.nl>
 
 	* org-publish.el (org-publish-timestamp-filename): Use

lisp/org-publish.el

@@ -638,7 +638,7 @@ Default for INDEX-FILENAME is 'index.org'."
 		    (insert (concat indent-str " + [[file:" subdir "][" d "/]]\n"))
 		    (setq indent-str (make-string (+ (length indent-str) 2) ?\ ))))))
 	    (insert (concat indent-str " + [[file:" link "]["
-			    (file-name-sans-extension fn)
+			    (org-publish-find-title file)
 			    "]]\n")))))
       (write-file index-filename)
       (kill-buffer (current-buffer)))))
@@ -653,7 +653,8 @@ Default for INDEX-FILENAME is 'index.org'."
  	  (and (not
  		(plist-get opt-plist :skip-before-1st-heading))
  	       (org-export-grab-title-from-buffer))
- 	  (file-name-sans-extension file)))))
+	  (file-name-nondirectory (file-name-sans-extension file))))))
+
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Interactive publishing functions