comparison lisp/mail/smtpmail.el @ 20058:7077ba8a265b

(smtpmail-send-it): Don't use time-stamp-strftime.
author Karl Heuer <kwzh@gnu.org>
date Wed, 15 Oct 1997 23:33:14 +0000
parents 54cf1b43247b
children dfb671ba22f8
comparison
equal deleted inserted replaced
20057:612cd201aea5 20058:7077ba8a265b
251 smtpmail-recipient-address-list tembuf)) 251 smtpmail-recipient-address-list tembuf))
252 (error "Sending failed; SMTP protocol error")) 252 (error "Sending failed; SMTP protocol error"))
253 (error "Sending failed; no recipients")) 253 (error "Sending failed; no recipients"))
254 (let* ((file-data (concat 254 (let* ((file-data (concat
255 smtpmail-queue-dir 255 smtpmail-queue-dir
256 (time-stamp-strftime 256 (concat (time-stamp-yyyy-mm-dd)
257 "%02y%02m%02d-%02H%02M%02S"))) 257 "_" (time-stamp-hh:mm:ss))))
258 (file-elisp (concat file-data ".el")) 258 (file-elisp (concat file-data ".el"))
259 (buffer-data (create-file-buffer file-data)) 259 (buffer-data (create-file-buffer file-data))
260 (buffer-elisp (create-file-buffer file-elisp)) 260 (buffer-elisp (create-file-buffer file-elisp))
261 (buffer-scratch "*queue-mail*")) 261 (buffer-scratch "*queue-mail*"))
262 (save-excursion 262 (save-excursion