From bd40fb0fcfafa615b9138c0ae232e35ed80b7a83 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 15 Apr 2004 22:12:02 +0000 Subject: [PATCH] Synch to No Gnus 200404151714. --- lisp/ChangeLog | 6 ++++++ lisp/legacy-gnus-agent.el | 8 +++++--- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7c07bec..3c94908 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2004-04-15 Kevin Greiner + + * legacy-gnus-agent.el + (gnus-agent-convert-to-compressed-agentview): Fixed typos with + help from Florian Weimer + 2004-04-15 Katsumi Yamaoka * nnmail.el (nnmail-cache-insert): Revert last change. diff --git a/lisp/legacy-gnus-agent.el b/lisp/legacy-gnus-agent.el index a09bfa4..7127dbd 100644 --- a/lisp/legacy-gnus-agent.el +++ b/lisp/legacy-gnus-agent.el @@ -10,7 +10,7 @@ "Iterates over all agentview files to ensure that they have been converted to the compressed format." - (let ((search-in '(gnus-agent-directory)) + (let ((search-in (list gnus-agent-directory)) here members member @@ -18,8 +18,10 @@ converted to the compressed format." (while (setq here (pop search-in)) (setq members (directory-files here t)) (while (setq member (pop members)) - (cond ((file-directory-p member) - (push member search-in)) + (cond ((string-match "/\\.\\.?$" member) + nil) + ((file-directory-p member) + (push member search-in)) ((equal (file-name-nondirectory member) ".agentview") (setq converted-something (or (gnus-agent-convert-agentview member) -- 1.7.10.4