From d54acf48461181037d9870789b5bf1c7fbfede14 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 26 Aug 1999 09:08:37 +0000 Subject: [PATCH] (smtpmail-send-it): Use `time-stamp-yyyy-mm-dd' and `time-stamp-hh:mm:ss' instead of `current-time'. --- smtpmail.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/smtpmail.el b/smtpmail.el index aa635ed..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 smtpmail-queue-dir - (mapconcat - (function - (lambda (arg) (format "%x" arg))) - (current-time) ""))) + (let* ((file-data (concat + smtpmail-queue-dir + (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