[Emacs-commit] emacs/lisp/mh-e mh-search.el ChangeLog

[Bill Wohler]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Bill Wohler <wohler>    06/06/16 00:50:00

Modified files:
        lisp/mh-e      : mh-search.el ChangeLog 

Log message:
        (mh-index-new-folder): Use -2 suffix instead of <2> suffix for folder
        names, as <> are illegal filename characters on Windows (closes SF
        #1507002).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-search.el?cvsroot=emacs&r1=1.12&r2=1.13
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/ChangeLog?cvsroot=emacs&r1=1.219&r2=1.220

Patches:
Index: mh-search.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mh-e/mh-search.el,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -b -r1.12 -r1.13
--- mh-search.el        2 Jun 2006 18:47:44 -0000       1.12
+++ mh-search.el        16 Jun 2006 00:50:00 -0000      1.13
@@ -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))

Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mh-e/ChangeLog,v
retrieving revision 1.219
retrieving revision 1.220
diff -u -b -r1.219 -r1.220
--- ChangeLog   16 Jun 2006 00:48:04 -0000      1.219
+++ ChangeLog   16 Jun 2006 00:50:00 -0000      1.220
@@ -1,3 +1,9 @@
+2006-06-15  Bill Wohler  <address@hidden>
+
+       * 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  <address@hidden>  (tiny change)
 
        * mh-comp.el (mh-send-uses-spost): New variable.