From: John Paul Wallington <jpw@pobox.com>
Date: Thu, 21 Aug 2008 12:24:48 +0000 (+0000)
Subject: (rmail-insert-inbox-text): Ensure that the filename of `tofile'
X-Git-Tag: emacs-pretest-23.0.90~3384
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6da54b82e4a16fe8678c23a820608c351a9d5cb1;p=emacs.git

(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 d2329452ce4..6e3056da407 100644
--- 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