# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 876958394 0
# Node ID 7077ba8a265b3fdccd42140be6d2365c65cac305
# Parent  612cd201aea521f3d2700c346a1418ee10e28936
(smtpmail-send-it): Don't use time-stamp-strftime.

diff -r 612cd201aea5 -r 7077ba8a265b lisp/mail/smtpmail.el
--- a/lisp/mail/smtpmail.el	Wed Oct 15 23:28:06 1997 +0000
+++ b/lisp/mail/smtpmail.el	Wed Oct 15 23:33:14 1997 +0000
@@ -253,8 +253,8 @@
 		(error "Sending failed; no recipients"))
 	    (let* ((file-data (concat 
 			       smtpmail-queue-dir
-			       (time-stamp-strftime 
-				"%02y%02m%02d-%02H%02M%02S")))
+			       (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))