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)