X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-agent.el;h=d8de4887317d714e0ed160d26ba9ba0c80555c47;hb=1e3e1386d37f698d902205a2c6e8a11c360070be;hp=81182bd522102085573d7930e021fc8dad47ca18;hpb=5ad8ce53c836cff1212e5ae958a8a70a689f501e;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 81182bd..d8de488 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -3984,6 +3984,16 @@ modified."
 	 (gnus-agent-update-view-total-fetched-for  group t   method path)
 	 (gnus-agent-update-files-total-fetched-for group nil method path))))))
 
+;; Added to support XEmacs
+(eval-and-compile
+  (unless (fboundp 'directory-files-and-attributes)
+    (defun directory-files-and-attributes (directory
+					   &optional full match nosort)
+      (let (result)
+	(dolist (file (directory-files directory full match nosort))
+	  (push (cons file (file-attributes file)) result))
+	(nreverse result)))))
+
 (provide 'gnus-agent)
 
 ;;; gnus-agent.el ends here