From: yamaoka <yamaoka>
Date: Fri, 10 Sep 2004 03:17:28 +0000 (+0000)
Subject: Synch to No Gnus 200409100314.
X-Git-Tag: t-gnus-6_17_4-quimby-~774
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1e3e1386d37f698d902205a2c6e8a11c360070be;p=elisp%2Fgnus.git-

Synch to No Gnus 200409100314.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e8aafbd..6aab3f4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,4 +1,8 @@
 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.
 	(gnus-agent-unfetch-articles): New function.
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