Publishing: Fix publishing of attachments

lisp/ChangeLog

@@ -1,5 +1,8 @@
 2009-07-02  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-publish.el (org-publish-attachment): Fix publishing of
+	attachments.
+
 	* org-latex.el (org-export-latex-quotation-marks): Fix export of
 	quotation makrs in parenthesis.
 	(org-remove-initial-hash): New function.

lisp/org-publish.el

@@ -443,7 +443,9 @@ See `org-publish-org-to' to the list of arguments."
     (make-directory pub-dir t))
   (or (equal (expand-file-name (file-name-directory filename))
 	     (file-name-as-directory (expand-file-name pub-dir)))
-      (copy-file filename pub-dir t)))
+      (copy-file filename
+		 (expand-file-name (file-name-nondirectory filename) pub-dir)
+		 t)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Publishing files, sets of files, and indices