*** empty log message ***

[gnus] / lisp / gnus-group.el

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index d74a9e6..6fad5c4 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -2949,8 +2949,10 @@ to use."
       (setq dirs (list dirs)))
     (while (and (not found)
                (setq dir (pop dirs)))
-      (setq file (concat (file-name-as-directory dir)
-                        (gnus-group-real-name group)))
+      (let ((name (gnus-group-real-name group)))
+       (while (string-match "\\." name)
+         (setq name (replace-match "/" t t name)))
+       (setq file (concat (file-name-as-directory dir) name)))
       (if (not (file-exists-p file))
          (gnus-message 1 "No such file: %s" file)
        (let ((enable-local-variables nil))