diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-04-25 21:45:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-04-25 21:45:22 +0000 |
| commit | 08b10dd42203df042eda499099598ee108ebcd2e (patch) | |
| tree | 17cb3b38dd3dde127674854b3525981a534982a5 /lisp/mail | |
| parent | e1cac35a1e839f5849399f44b9142c92fbc8660d (diff) | |
| download | emacs-08b10dd42203df042eda499099598ee108ebcd2e.tar.gz | |
(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).
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/smtpmail.el | 10 |
1 files changed, 7 insertions, 3 deletions
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)) |