(gnus-agent-expire-unagentized-dirs): Expand gnus-agent-directory

	as the directories in gnus-agent-expire-current-dirs were
	expanded.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6079f27..6c46a7a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -10,6 +10,9 @@
        nnmail-group-pathname.
        (gnus-agent-expire-unagentized-dirs): New variable.  May be
        customized to disable gnus-agent-expire-unagentized-dirs.
+       (gnus-agent-expire-unagentized-dirs): Expand gnus-agent-directory
+       as the directories in gnus-agent-expire-current-dirs were
+       expanded.
 
 2003-04-10  Jesper Harder  <harder@ifa.au.dk>
 

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 9a3202a..114685a 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -2891,7 +2891,7 @@ articles in every agentized group."))
                                   (push r to-remove))))
                            ((file-directory-p (setq file (nnheader-concat d file)))
                             (funcall checker file)))))))))
-        (funcall checker gnus-agent-directory)
+        (funcall checker (expand-file-name gnus-agent-directory))
 
         (when (and to-remove
                    (or gnus-expert-user