(rmail-output-body-to-file): Avoid space and colon in default file name.

2 files changed, 7 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 101ab014e25..b33c1b8d062 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2009-02-14  Richard M Stallman  <rms@gnu.org>
 
+        * mail/rmailout.el (rmail-output-body-to-file): Avoid space and colon
+        in default file name.
+
         * mail/rmail.el (rmail-convert-file-maybe): Turn off case-fold-search.
         (rmail-add-mbox-headers): Likewise.
 
diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el
index 4984fd7454f..9b988dd2863 100644
--- a/lisp/mail/rmailout.el
+++ b/lisp/mail/rmailout.el
@@ -568,6 +568,10 @@ FILE-NAME defaults, interactively, from the Subject field of the message."
    (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: "