Mercurial > emacs

changeset 47436:dc7ce8219431

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Simon Josefsson <jas@extundo.com>
date Thu, 12 Sep 2002 06:03:03 +0000
parents 9b2bd1816871
children 025aad501345
files lisp/mail/smtpmail.el
diffstat 1 files changed, 9 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- 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*"))