Mercurial > emacs
comparison lisp/mail/smtpmail.el @ 24871:45799f110d16
(smtpmail-send-it): Use convert-standard-filename to make file names
for queued mail safe on Windows (`:' is invalid in file names on
Windows).
author | Andrew Innes <andrewi@gnu.org> |
---|---|
date | Fri, 18 Jun 1999 21:20:48 +0000 |
parents | 424bc3b2a6ef |
children | a0126ac842dc |
comparison
equal
deleted
inserted
replaced
24870:b0f6eab5deeb | 24871:45799f110d16 |
---|---|
236 (error "Sending failed; no recipients")) | 236 (error "Sending failed; no recipients")) |
237 (let* ((file-data (concat | 237 (let* ((file-data (concat |
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*")) |
245 (save-excursion | 246 (save-excursion |
246 (set-buffer buffer-data) | 247 (set-buffer buffer-data) |