Importing pgnus-0.40.

[elisp/gnus.git-] / lisp / nnml.el

diff --git a/lisp/nnml.el b/lisp/nnml.el
index 8847ae3..4e847bf 100644 (file)
--- a/lisp/nnml.el
+++ b/lisp/nnml.el
@@ -576,8 +576,9 @@ all.  This may very well take some time.")
 
 (defun nnml-possibly-create-directory (group)
   (let ((dir (nnmail-group-pathname group nnml-directory)))
-    (make-directory (directory-file-name dir) t)
-    (nnheader-message 5 "Creating mail directory %s" dir)))
+    (unless (file-exists-p dir)
+      (make-directory (directory-file-name dir) t)
+      (nnheader-message 5 "Creating mail directory %s" dir))))
 
 (defun nnml-save-mail (group-art)
   "Called narrowed to an article."