Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
da01a066
Commit
da01a066
authored
Feb 09, 2006
by
Bill Wohler
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(mh-folder-list): Don't replace "/*$" with "/" since that causes an
infinite loop on XEmacs.
parent
fcfc4732
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
10 additions
and
5 deletions
+10
-5
lisp/mh-e/ChangeLog
lisp/mh-e/ChangeLog
+3
-0
lisp/mh-e/mh-utils.el
lisp/mh-e/mh-utils.el
+7
-5
No files found.
lisp/mh-e/ChangeLog
View file @
da01a066
2006
-
02
-
09
Bill
Wohler
<
wohler
@
newt
.
com
>
*
mh
-
utils
.
el
(
mh
-
folder
-
list
):
Don
't replace "/*$" with "/" since
that causes an infinite loop on XEmacs.
* mh-compat.el(mh-replace-regexp-in-string): Add missing regexp
argument.
...
...
lisp/mh-e/mh-utils.el
View file @
da01a066
...
...
@@ -516,13 +516,15 @@ value of `mh-recursive-folders-flag'. If this flag is nil, and
the sub-folders have not been explicitly viewed, then they will
not be returned."
(
let
((
folder-list
))
;; Normalize folder. Strip leading +. Add trailing slash. If no
;; folder is specified, ensure it is nil to ensure we get the
;; top-level folders; otherwise mh-sub-folders returns all the
;; files in / if given an empty string or +.
;; Normalize folder. Strip leading +. Add trailing slash (done in
;; two steps to avoid infinite loops when replacing "/*$" with "/"
;; in XEmacs). If no folder is specified, ensure it is nil to
;; ensure we get the top-level folders; otherwise mh-sub-folders
;; returns all the files in / if given an empty string or +.
(
when
folder
(
setq
folder
(
mh-replace-regexp-in-string
"^\+"
""
folder
))
(
setq
folder
(
mh-replace-regexp-in-string
"/*$"
"/"
folder
))
(
setq
folder
(
mh-replace-regexp-in-string
"/+$"
""
folder
))
(
setq
folder
(
concat
folder
"/"
))
(
if
(
equal
folder
""
)
(
setq
folder
nil
)))
(
loop
for
f
in
(
mh-sub-folders
folder
)
do
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment