diff options
| author | Simon Josefsson <[email protected]> | 2002-09-12 06:03:03 +0000 |
|---|---|---|
| committer | Simon Josefsson <[email protected]> | 2002-09-12 06:03:03 +0000 |
| commit | bf6e31bc66f2f0e1ef1bcabc496a214d863b0b24 (patch) | |
| tree | 90d47886f2116bc16e58fd2cfc02faef17fca0a5 /lisp/mail | |
| parent | 09facbd27acca6b17dc1af3016178665cbbfcbca (diff) | |
(smtpmail-send-it): Don't use : in filenames
(for cygwin). Suggested by Andrew Senior <[email protected]>.
Use expand-file-name. Also don't require time-stamp.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/smtpmail.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 9984a873ff..78393348c5 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -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 @@ This is relative to `smtpmail-queue-dir'.") 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*")) |