projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1e3e138
)
Synch to No Gnus 200409100706.
author
yamaoka
<yamaoka>
Fri, 10 Sep 2004 07:07:12 +0000
(07:07 +0000)
committer
yamaoka
<yamaoka>
Fri, 10 Sep 2004 07:07:12 +0000
(07:07 +0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/gnus-agent.el
patch
|
blob
|
history
diff --git
a/lisp/ChangeLog
b/lisp/ChangeLog
index
6aab3f4
..
977daf9
100644
(file)
--- a/
lisp/ChangeLog
+++ b/
lisp/ChangeLog
@@
-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.
2004-09-09 Kevin Greiner <kgreiner@compsol.cc>
* 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
(file)
--- 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)))
(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
(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))))))
(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
(provide 'gnus-agent)
;;; gnus-agent.el ends here