[Emacs-diffs] emacs/lisp/mail rmailout.el

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       09/02/14 02:53:37

Modified files:
        lisp/mail      : rmailout.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmailout.el?cvsroot=emacs&r1=1.87&r2=1.88

Patches:
Index: rmailout.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/rmailout.el,v
retrieving revision 1.87
retrieving revision 1.88
diff -u -b -r1.87 -r1.88
--- rmailout.el 13 Feb 2009 07:44:18 -0000      1.87
+++ rmailout.el 14 Feb 2009 02:53:37 -0000      1.88
@@ -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: "