projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Synch to No Gnus 200601190601.
[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)))
(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)
(if (file-directory-p path)
(setq paths (nconc paths (list path)))))
(or (null paths)