# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1234580017 0
# Node ID 3c79c560383649a1d8bfb9bbe4eb39eb161734f6
# Parent  607c857f5a241d301e4b28cd7c8af152e126cc9a
(rmail-output-body-to-file): Avoid space and colon in default file name.

diff -r 607c857f5a24 -r 3c79c5603836 lisp/mail/rmailout.el
--- a/lisp/mail/rmailout.el	Sat Feb 14 02:52:17 2009 +0000
+++ b/lisp/mail/rmailout.el	Sat Feb 14 02:53:37 2009 +0000
@@ -568,6 +568,10 @@
    (let ((default-file
 	   (or (mail-fetch-field "Subject")
 	       rmail-default-body-file)))
+     (setq default-file
+	   (replace-regexp-in-string ":" "-" default-file))
+     (setq default-file
+	   (replace-regexp-in-string " " "-" default-file))
      (list (setq rmail-default-body-file
 		 (read-file-name
 		  "Output message body to file: "