smtpmail.el fixes for windows

[Simon Josefsson]

Is it OK to install this?

2002-09-11  Simon Josefsson  <jas@extundo.com>

        * mail/smtpmail.el (smtpmail-send-it): Don't use : in filenames
        (for cygwin). Convert number to string.  Suggested by Andrew
        Senior <aws@watson.ibm.com>.

        * time-stamp.el (time-stamp-hhmmss): New function.

--- smtpmail.el.~1.47.~ 2002-09-11 06:50:53.000000000 +0200
+++ smtpmail.el 2002-09-11 07:20:56.000000000 +0200
@@ -346,10 +346,11 @@
            (let* ((file-data (concat
                               smtpmail-queue-dir
                               (concat (time-stamp-yyyy-mm-dd)
-                                      "_" (time-stamp-hh:mm:ss)
+                                      "_" (time-stamp-hhmmss)
                                       "_"
+                                      (number-to-string
                                       (setq smtpmail-queue-counter
-                                            (1+ smtpmail-queue-counter)))))
+                                             (1+ smtpmail-queue-counter))))))
                      (file-elisp (concat file-data ".el"))
                   (buffer-data (create-file-buffer file-data))
                   (buffer-elisp (create-file-buffer file-elisp))
--- time-stamp.el.~1.51.~       2002-05-19 01:50:11.000000000 +0200
+++ time-stamp.el       2002-09-11 07:16:35.000000000 +0200
@@ -731,6 +731,10 @@
   "Return the current time as a string in \"HH:MM:SS\" form."
   (format-time-string "%T"))
 
+(defun time-stamp-hhmmss ()
+  "Return the current time as a string in \"HHMMSS\" form."
+  (format-time-string "%H%M%S"))
+
 (defun time-stamp-hhmm ()
   "Return the current time as a string in \"HHMM\" form."
   (format-time-string "%H%M"))