*** empty log message ***

[gnus] / lisp / gnus-soup.el

diff --git a/lisp/gnus-soup.el b/lisp/gnus-soup.el
index 3b150a7..c9e1a46 100644 (file)
--- a/lisp/gnus-soup.el
+++ b/lisp/gnus-soup.el
@@ -326,7 +326,8 @@ If NOT-ALL, don't pack ticked articles."
       (while prefix
        (gnus-set-work-buffer)
        (insert (format "(setq gnus-soup-prev-prefix %d)\n" (cdar prefix)))
-       (make-directory (caar prefix) t)
+       (unless (file-exists-p (caar prefix))
+         (make-directory (caar prefix) t))
        (write-region (point-min) (point-max)
                      (concat (caar prefix) gnus-soup-prefix-file) 
                      nil 'nomesg)