projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
5ad8ce5
)
Synch to No Gnus 200409100314.
author
yamaoka
<yamaoka>
Fri, 10 Sep 2004 03:17:28 +0000
(
03:17
+0000)
committer
yamaoka
<yamaoka>
Fri, 10 Sep 2004 03:17:28 +0000
(
03:17
+0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/gnus-agent.el
patch
|
blob
|
history
diff --git
a/lisp/ChangeLog
b/lisp/ChangeLog
index
e8aafbd
..
6aab3f4
100644
(file)
--- a/
lisp/ChangeLog
+++ b/
lisp/ChangeLog
@@
-1,4
+1,8
@@
2004-09-09 Kevin Greiner <kgreiner@compsol.cc>
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.
* 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
(file)
--- 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))))))
(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