# HG changeset patch
# User Simon Josefsson <jas@extundo.com>
# Date 1031810583 0
# Node ID dc7ce821943140482d52b277d651c6d9d094badd
# Parent  9b2bd1816871d9d93f5a95a43982c9204298be8f
(smtpmail-send-it): Don't use : in filenames
(for cygwin). Suggested by Andrew Senior <aws@watson.ibm.com>.
Use expand-file-name.  Also don't require time-stamp.

diff -r 9b2bd1816871 -r dc7ce8219431 lisp/mail/smtpmail.el
--- a/lisp/mail/smtpmail.el	Thu Sep 12 03:32:02 2002 +0000
+++ b/lisp/mail/smtpmail.el	Thu Sep 12 06:03:03 2002 +0000
@@ -66,7 +66,6 @@
 ;;; Code:
 
 (require 'sendmail)
-(require 'time-stamp)
 (autoload 'starttls-open-stream "starttls")
 (autoload 'starttls-negotiate "starttls")
 (autoload 'mail-strip-quoted-names "mail-utils")
@@ -343,14 +342,15 @@
 			    smtpmail-recipient-address-list tembuf))
 		      (error "Sending failed; SMTP protocol error"))
 		(error "Sending failed; no recipients"))
-	    (let* ((file-data (concat
-			       smtpmail-queue-dir
-			       (concat (time-stamp-yyyy-mm-dd)
-				       "_" (time-stamp-hh:mm:ss)
-				       "_"
-				       (setq smtpmail-queue-counter
-					     (1+ smtpmail-queue-counter)))))
-		      (file-elisp (concat file-data ".el"))
+	    (let* ((file-data
+		    (expand-file-name
+		     (format "%s_%i"
+			     (format-time-string "%Y-%m-%d_%H:%M:%S")
+			     (setq smtpmail-queue-counter
+				   (1+ smtpmail-queue-counter)))
+		     smtpmail-queue-dir))
+		   (file-data (convert-standard-filename file-data))
+		   (file-elisp (concat file-data ".el"))
 		   (buffer-data (create-file-buffer file-data))
 		   (buffer-elisp (create-file-buffer file-elisp))
 		   (buffer-scratch "*queue-mail*"))