[Emacs-diffs] Changes to emacs/lisp/mail/smtpmail.el

[Simon Josefsson]

Index: emacs/lisp/mail/smtpmail.el
diff -c emacs/lisp/mail/smtpmail.el:1.47 emacs/lisp/mail/smtpmail.el:1.48
*** emacs/lisp/mail/smtpmail.el:1.47    Wed Sep 11 00:53:15 2002
--- emacs/lisp/mail/smtpmail.el Thu Sep 12 02:03:03 2002
***************
*** 66,72 ****
  ;;; Code:
  
  (require 'sendmail)
- (require 'time-stamp)
  (autoload 'starttls-open-stream "starttls")
  (autoload 'starttls-negotiate "starttls")
  (autoload 'mail-strip-quoted-names "mail-utils")
--- 66,71 ----
***************
*** 343,356 ****
                            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"))
                   (buffer-data (create-file-buffer file-data))
                   (buffer-elisp (create-file-buffer file-elisp))
                   (buffer-scratch "*queue-mail*"))
--- 342,356 ----
                            smtpmail-recipient-address-list tembuf))
                      (error "Sending failed; SMTP protocol error"))
                (error "Sending failed; no recipients"))
!           (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*"))