Feeding back from `t-gnus-6_14' into `pgnus-ichikawa'.

[elisp/gnus.git-] / lisp / dgnuspath.el.in

diff --git a/lisp/dgnuspath.el.in b/lisp/dgnuspath.el.in
index 36749e6..3ee338f 100644 (file)
--- a/lisp/dgnuspath.el.in
+++ b/lisp/dgnuspath.el.in
@@ -7,8 +7,11 @@
     (setq path (file-name-as-directory
                (expand-file-name (match-string 0 addpath)))
          addpath (substring addpath (match-end 0)))
-    (if (string-match "apel/" path)
-       (setq path (substring path 0 (match-beginning 0))))
+    (if (string-match "apel/$" path)
+       (progn
+         (if (file-directory-p path)
+             (setq paths (nconc paths (list path))))
+         (setq path (substring path 0 (match-beginning 0)))))
     (if (file-directory-p path)
        (setq paths (nconc paths (list path)))))
   (or (null paths)