From: yamaoka <yamaoka>
Date: Thu, 26 Aug 1999 09:08:23 +0000 (+0000)
Subject: (smtpmail-send-it): Use `time-stamp-yyyy-mm-dd' and `time-stamp-hh:mm:ss'
X-Git-Tag: flim-1_13_2_1~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f448389789451a7c5c46043c4a8c82e76609d20a;hp=180bfbfefd87cf81b3004eeded36b8652131ed01;p=elisp%2Fflim.git

(smtpmail-send-it): Use `time-stamp-yyyy-mm-dd' and `time-stamp-hh:mm:ss'
instead of `current-time'.
---

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))