Small smtpmail fix for bug#7588.

* lisp/mail/smtpmail.el (smtpmail-send-it): Avoid colons in the queued
file names, for the sake of MS Windows.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bef6405d96365823e34a85e9316882cc2739b2dd..6c558723bdfa209f5973c8310fffc372835f9900 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-12-08  Glenn Morris  <rgm@gnu.org>
+
+       * mail/smtpmail.el (smtpmail-send-it): Avoid colons in the queued
+       file names, for the sake of MS Windows.  (Bug#7588)
+
 2010-12-07  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * diff-mode.el (diff-refine-hunk): Make it work when the hunk contains

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 4e76de6018876cc56ab1db4e04d31461d5089c74..1bf3fbe4a59ad1fe5775aec7579ce457dc1e3a7b 100644 (file)
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -379,7 +379,7 @@ The list is in preference order.")
            (let* ((file-data
                    (expand-file-name
                     (format "%s_%i"
-                            (format-time-string "%Y-%m-%d_%H:%M:%S")
+                            (format-time-string "%Y-%m-%d_%H-%M-%S")
                             (setq smtpmail-queue-counter
                                   (1+ smtpmail-queue-counter)))
                     smtpmail-queue-dir))
@@ -1007,5 +1007,4 @@ many continuation lines."
 
 (provide 'smtpmail)
 
-;; arch-tag: a76992df-6d71-43b7-9e72-4bacc6c05466
 ;;; smtpmail.el ends here