Commit 08b10dd4 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(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).
parent e1cac35a
......@@ -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
(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))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment