projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** 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 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))
(if (not (file-exists-p file))
(gnus-message 1 "No such file: %s" file)
(let ((enable-local-variables nil))