From fe6dd7e2ed04cad3db0428529ef6c36cf7b34194 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 14 Feb 2009 02:54:00 +0000 Subject: [PATCH] (rmail-output-body-to-file): Avoid space and colon in default file name. --- lisp/ChangeLog | 3 +++ lisp/mail/rmailout.el | 4 ++++ 2 files changed, 7 insertions(+) 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 + * 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: " -- 2.39.5