From f448389789451a7c5c46043c4a8c82e76609d20a Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 26 Aug 1999 09:08:23 +0000 Subject: [PATCH] (smtpmail-send-it): Use `time-stamp-yyyy-mm-dd' and `time-stamp-hh:mm:ss' instead of `current-time'. --- smtpmail.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/smtpmail.el b/smtpmail.el index e5fbe5a..668721a 100644 --- a/smtpmail.el +++ b/smtpmail.el @@ -230,11 +230,10 @@ This is relative to `smtpmail-queue-dir'.") tembuf)) (error "Sending failed; SMTP protocol error")) (error "Sending failed; no recipients")) - (let* ((file-data (concat + (let* ((file-data (concat smtpmail-queue-dir - (mapconcat - (lambda (arg) (format "%x" arg)) - (current-time) ""))) + (concat (time-stamp-yyyy-mm-dd) + "_" (time-stamp-hh:mm:ss)))) (file-elisp (concat file-data ".el")) (buffer-data (create-file-buffer file-data)) (buffer-elisp (create-file-buffer file-elisp)) -- 1.7.10.4