[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/mail rmailout.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] emacs/lisp/mail rmailout.el |
Date: |
Sat, 14 Feb 2009 02:53:37 +0000 |
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: "
- [Emacs-diffs] emacs/lisp/mail rmailout.el,
Richard M. Stallman <=