Synch to No Gnus 200409100706.
authoryamaoka <yamaoka>
Fri, 10 Sep 2004 07:07:12 +0000 (07:07 +0000)
committeryamaoka <yamaoka>
Fri, 10 Sep 2004 07:07:12 +0000 (07:07 +0000)
lisp/ChangeLog
lisp/gnus-agent.el

index 6aab3f4..977daf9 100644 (file)
@@ -1,3 +1,7 @@
+2004-09-10  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-agent.el (directory-files-and-attributes): Move forward.
+
 2004-09-09  Kevin Greiner  <kgreiner@compsol.cc>
        * gnus-agent.el (directory-files-and-attributes): Optionally
        defined to support XEmacs.
index d8de488..3547079 100644 (file)
@@ -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