Publishing: Copy attachment only if target directory is different

lisp/ChangeLog

@@ -1,3 +1,8 @@
+2009-03-06  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* org-publish.el (org-publish-attachment): Only copy file when the
+	directories differ.
+
 2009-03-05  Carsten Dominik  <carsten.dominik@gmail.com>
 
 	* org-clock.el (org-clocktable-steps): Use inactive time stamps

lisp/org-publish.el

@@ -543,7 +543,9 @@ See `org-publish-org-to' to the list of arguments."
   ;; make sure eshell/cp code is loaded
   (unless (file-directory-p pub-dir)
     (make-directory pub-dir t))
-  (copy-file filename 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)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Publishing files, sets of files, and indices