Mercurial > emacs

changeset 102014:3c79c5603836

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-output-body-to-file): Avoid space and colon in default file name.
author Richard M. Stallman <rms@gnu.org>
date Sat, 14 Feb 2009 02:53:37 +0000
parents 607c857f5a24
children 1bf20182ec3d
files lisp/mail/rmailout.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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: "