(rmail-insert-inbox-text): Ensure that the filename of `tofile'

doesn't contain any colons so that it works on Windows, Cygwin, and
MS-DOS systems.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index d2329452ce41b3e4b9de05476fa3b8a0f9d6b993..6e3056da4074bef773adcaa5e2be44e9444ff53f 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1803,9 +1803,9 @@ is non-nil if the user has supplied the password interactively.
                    ;; in case of multiple inboxes that need moving.
                    (concat ".newmail-"
                            (file-name-nondirectory
-                            (if (memq system-type '(windows-nt cygwin))
-                                ;; cannot have "po:" in file name
-                                (substring file 3)
+                            (if (memq system-type '(windows-nt cygwin ms-dos))
+                                ;; cannot have colons in file name
+                                (replace-regexp-in-string ":" "-" file)
                               file)))
                    ;; Use the directory of this rmail file
                    ;; because it's a nuisance to use the homedir