Mercurial > emacs
comparison lisp/mail/rmailout.el @ 102014:3c79c5603836
(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 | 1bb96ade4801 |
| children | 24b13226c128 |
comparison
equal
deleted
inserted
replaced
| 102013:607c857f5a24 | 102014:3c79c5603836 |
|---|---|
| 566 FILE-NAME defaults, interactively, from the Subject field of the message." | 566 FILE-NAME defaults, interactively, from the Subject field of the message." |
| 567 (interactive | 567 (interactive |
| 568 (let ((default-file | 568 (let ((default-file |
| 569 (or (mail-fetch-field "Subject") | 569 (or (mail-fetch-field "Subject") |
| 570 rmail-default-body-file))) | 570 rmail-default-body-file))) |
| 571 (setq default-file | |
| 572 (replace-regexp-in-string ":" "-" default-file)) | |
| 573 (setq default-file | |
| 574 (replace-regexp-in-string " " "-" default-file)) | |
| 571 (list (setq rmail-default-body-file | 575 (list (setq rmail-default-body-file |
| 572 (read-file-name | 576 (read-file-name |
| 573 "Output message body to file: " | 577 "Output message body to file: " |
| 574 (and default-file (file-name-directory default-file)) | 578 (and default-file (file-name-directory default-file)) |
| 575 default-file | 579 default-file |