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

fe6dd7e2 · Richard M. Stallman · c7eb0ba1 · fe6dd7e2 · fe6dd7e2
Commit fe6dd7e2 authored Feb 14, 2009 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 0 deletions

lisp/ChangeLog lisp/ChangeLog +3 -0

lisp/mail/rmailout.el lisp/mail/rmailout.el +4 -0

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
 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.
  

--- 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: "