X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fdgnuspath.el.in;h=3ee338f7dcd3d31738e72c5f93ac6443f6e3975a;hb=44268ea8f71db5b9bf31e01b7ba32cc81ab6f4d6;hp=36749e683fbe397ee8d65ffaa322995cecce7177;hpb=ee70a66fb20ed12d43960dd3933c7f416257ef42;p=elisp%2Fgnus.git-

diff --git a/lisp/dgnuspath.el.in b/lisp/dgnuspath.el.in
index 36749e6..3ee338f 100644
--- 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)