* gnus-agent.el (directory-files-and-attributes): Optionally

	defined to support XEmacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0fb8731..83e9da5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-09-09  Kevin Greiner  <kgreiner@compsol.cc>
+       * gnus-agent.el (directory-files-and-attributes): Optionally
+       defined to support XEmacs.
+
 2004-09-09  Kevin Greiner  <kgreiner@compsol.cc>
        * gnus-agent.el (gnus-agent-cat-groups): rewrote avoiding defsetf
        to avoid run-time CL dependencies.

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 5d540da..a6117a9 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -3969,6 +3969,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)
 
 ;;; arch-tag: b0ba4afc-5229-4cee-ad25-9956daa4e91e