From 1e3e1386d37f698d902205a2c6e8a11c360070be Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 10 Sep 2004 03:17:28 +0000 Subject: [PATCH] Synch to No Gnus 200409100314. --- lisp/ChangeLog | 4 ++++ lisp/gnus-agent.el | 10 ++++++++++ 2 files changed, 14 insertions(+) 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 + * gnus-agent.el (directory-files-and-attributes): Optionally + defined to support XEmacs. + +2004-09-09 Kevin Greiner * 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 -- 1.7.10.4