From: yamaoka Date: Fri, 10 Sep 2004 07:07:12 +0000 (+0000) Subject: Synch to No Gnus 200409100706. X-Git-Tag: t-gnus-6_17_4-quimby-~773 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=868929cd1c5159df7b61f77ec9f630962c64ec5c;p=elisp%2Fgnus.git- Synch to No Gnus 200409100706. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6aab3f4..977daf9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2004-09-10 Katsumi Yamaoka + + * gnus-agent.el (directory-files-and-attributes): Move forward. + 2004-09-09 Kevin Greiner * gnus-agent.el (directory-files-and-attributes): Optionally defined to support XEmacs. diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index d8de488..3547079 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -3909,6 +3909,16 @@ If CLEAN, obsolete (ignore)." (defun gnus-agent-group-covered-p (group) (gnus-agent-method-p (gnus-group-method group))) +;; 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))))) + (defun gnus-agent-update-files-total-fetched-for (group delta &optional method path) "Update, or set, the total disk space used by the articles that the @@ -3984,16 +3994,6 @@ 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