Mercurial > emacs
changeset 71353:b5aec585f378
(mh-index-new-folder): Use -2 suffix instead of <2> suffix for folder
names, as <> are illegal filename characters on Windows (closes SF
#1507002).
| author | Bill Wohler <wohler@newt.com> |
|---|---|
| date | Fri, 16 Jun 2006 00:50:00 +0000 |
| parents | 3b4c4b0d5eef |
| children | 9440bcd820bc |
| files | lisp/mh-e/ChangeLog lisp/mh-e/mh-search.el |
| diffstat | 2 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mh-e/ChangeLog Fri Jun 16 00:48:04 2006 +0000 +++ b/lisp/mh-e/ChangeLog Fri Jun 16 00:50:00 2006 +0000 @@ -1,3 +1,9 @@ +2006-06-15 Bill Wohler <wohler@newt.com> + + * mh-search.el (mh-index-new-folder): Use -2 suffix instead of <2> + suffix for folder names, as <> are illegal filenakme characters on + Windows (closes SF #1507002). + 2006-06-05 Jacob Morzinski <morzinski@MIT.EDU> (tiny change) * mh-comp.el (mh-send-uses-spost): New variable.
--- a/lisp/mh-e/mh-search.el Fri Jun 16 00:48:04 2006 +0000 +++ b/lisp/mh-e/mh-search.el Fri Jun 16 00:50:00 2006 +0000 @@ -1537,7 +1537,7 @@ SEARCH-REGEXP then it is reused. Otherwise if the folder NAME was generated from a different -search then check if NAME<2> can be used. Otherwise try NAME<3>. +search then check if NAME-2 can be used. Otherwise try NAME-3. This is repeated till we find a new folder name. If the folder returned doesn't exist then it is created." @@ -1545,7 +1545,7 @@ (error "The argument should be a valid MH folder name")) (let ((chosen-name (loop for i from 1 - for candidate = (if (equal i 1) name (format "%s<%s>" name i)) + for candidate = (if (equal i 1) name (format "%s-%s" name i)) when (or (not (mh-folder-exists-p candidate)) (equal (mh-index-folder-search-regexp candidate) search-regexp))