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

[Richard M. Stallman]

Index: emacs/lisp/mail/smtpmail.el
diff -c emacs/lisp/mail/smtpmail.el:1.38 emacs/lisp/mail/smtpmail.el:1.39
*** emacs/lisp/mail/smtpmail.el:1.38    Fri Dec 21 07:06:21 2001
--- emacs/lisp/mail/smtpmail.el Thu Apr 25 17:45:22 2002
***************
*** 35,41 ****
  ;; Please add these lines in your .emacs(_emacs) or use customize.
  ;;
  ;;(setq send-mail-function 'smtpmail-send-it) ; if you use `mail'
! ;;(setq message-send-mail-function 'smtpmail-send-it) ; if you are using Gnus.
  ;;(setq smtpmail-default-smtp-server "YOUR SMTP HOST")
  ;;(setq smtpmail-local-domain "YOUR DOMAIN NAME")
  ;;(setq smtpmail-sendto-domain "YOUR DOMAIN NAME")
--- 35,41 ----
  ;; Please add these lines in your .emacs(_emacs) or use customize.
  ;;
  ;;(setq send-mail-function 'smtpmail-send-it) ; if you use `mail'
! ;;(setq message-send-mail-function 'smtpmail-send-it) ; if you use 
message/Gnus
  ;;(setq smtpmail-default-smtp-server "YOUR SMTP HOST")
  ;;(setq smtpmail-local-domain "YOUR DOMAIN NAME")
  ;;(setq smtpmail-sendto-domain "YOUR DOMAIN NAME")
***************
*** 191,196 ****
--- 191,198 ----
  (defvar smtpmail-address-buffer)
  (defvar smtpmail-recipient-address-list)
  
+ (defvar smtpmail-queue-counter 0)
+ 
  ;; Buffer-local variable.
  (defvar smtpmail-read-point)
  
***************
*** 334,341 ****
            (let* ((file-data (concat 
                               smtpmail-queue-dir
                               (concat (time-stamp-yyyy-mm-dd)
!                                      "_" (time-stamp-hh:mm:ss))))
!                     (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))
--- 336,345 ----
            (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))