diff options
| author | Andrew Innes | 1999-06-18 21:20:48 +0000 |
|---|---|---|
| committer | Andrew Innes | 1999-06-18 21:20:48 +0000 |
| commit | e91664878838316e4f68bd91fd20083f062c7466 (patch) | |
| tree | 490c5808a8474d9e780cfb2c19a04e0fb211ed51 | |
| parent | 5e34de1585de456a52415b023fcd786553bf297d (diff) | |
| download | emacs-e91664878838316e4f68bd91fd20083f062c7466.tar.gz emacs-e91664878838316e4f68bd91fd20083f062c7466.zip | |
(smtpmail-send-it): Use convert-standard-filename to make file names
for queued mail safe on Windows (`:' is invalid in file names on
Windows).
| -rw-r--r-- | lisp/mail/smtpmail.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 192235a2423..9b1ce021415 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el | |||
| @@ -238,7 +238,8 @@ This is relative to `smtpmail-queue-dir'.") | |||
| 238 | smtpmail-queue-dir | 238 | smtpmail-queue-dir |
| 239 | (concat (time-stamp-yyyy-mm-dd) | 239 | (concat (time-stamp-yyyy-mm-dd) |
| 240 | "_" (time-stamp-hh:mm:ss)))) | 240 | "_" (time-stamp-hh:mm:ss)))) |
| 241 | (file-elisp (concat file-data ".el")) | 241 | (file-data (convert-standard-filename file-data)) |
| 242 | (file-elisp (concat file-data ".el")) | ||
| 242 | (buffer-data (create-file-buffer file-data)) | 243 | (buffer-data (create-file-buffer file-data)) |
| 243 | (buffer-elisp (create-file-buffer file-elisp)) | 244 | (buffer-elisp (create-file-buffer file-elisp)) |
| 244 | (buffer-scratch "*queue-mail*")) | 245 | (buffer-scratch "*queue-mail*")) |