From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 25 Apr 2002 21:45:22 +0000 (+0000)
Subject: (smtpmail-queue-counter): New variable.
X-Git-Tag: ttn-vms-21-2-B4~15395
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=08b10dd42203df042eda499099598ee108ebcd2e;p=emacs.git

(smtpmail-queue-counter): New variable.
(smtpmail-send-it): Use it to construct new queue filenames (needed
if you send more than one message per second, which is
possible if you use Gnus Agent).
---

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 70376e0bf71..8353653526b 100644
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -35,7 +35,7 @@
 ;; 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 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,6 +191,8 @@ This is relative to `smtpmail-queue-dir'.")
 (defvar smtpmail-address-buffer)
 (defvar smtpmail-recipient-address-list)
 
+(defvar smtpmail-queue-counter 0)
+
 ;; Buffer-local variable.
 (defvar smtpmail-read-point)
 
@@ -334,8 +336,10 @@ This is relative to `smtpmail-queue-dir'.")
 	    (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))
+				       "_" (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))