Mercurial > emacs
changeset 44864:c18dd95f6962
(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).
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 25 Apr 2002 21:45:22 +0000 |
| parents | 6dbfe921e3c2 |
| children | 590c97430876 |
| files | lisp/mail/smtpmail.el |
| diffstat | 1 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/smtpmail.el Thu Apr 25 21:45:22 2002 +0000 +++ b/lisp/mail/smtpmail.el Thu Apr 25 21:45:22 2002 +0000 @@ -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 @@ (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 @@ (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))