Fix bug with getting list of attachments.

lisp/ChangeLog

@@ -1,3 +1,7 @@
+2008-10-08  Carsten Dominik  <dominik@science.uva.nl>
+
+	* org-attach.el (org-attach-file-list): Fix bug with directory.
+
 2008-10-07  Carsten Dominik  <dominik@science.uva.nl>
 
 	* org.el (org-apps-regexp-alist): New function.

lisp/org-attach.el

@@ -270,7 +270,7 @@ This can be used after files have been added externally."
 This ignores files starting with a \".\", and files ending in \"~\"."
   (delq nil
 	(mapcar (lambda (x) (if (string-match "^\\." x) nil x))
-		(directory-files "." nil "[^~]\\'"))))
+		(directory-files dir nil "[^~]\\'"))))
 
 (defun org-attach-reveal ()
   "Show the attachment directory of the current task in dired."