diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-07-23 17:58:20 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-07-23 17:58:20 +0200 |
| commit | 1f24519735d5413916962ff659d78b7333904e11 (patch) | |
| tree | 4d723027b0228ac74cd6c36b51a3103dfd5145fd /lisp/gnus | |
| parent | 6ce2acdadb7467fbde01f3d0648acea158836614 (diff) | |
| download | emacs-1f24519735d5413916962ff659d78b7333904e11.tar.gz emacs-1f24519735d5413916962ff659d78b7333904e11.tar.bz2 emacs-1f24519735d5413916962ff659d78b7333904e11.zip | |
Allow storing SMTP variables when queueing mail
* doc/misc/smtpmail.texi (Queued delivery): Document it (bug#49709).
* lisp/gnus/message.el (message-multi-smtp-send-mail): Store
variables.
* lisp/mail/smtpmail.el (smtpmail-queue-mail): Mention it.
(smtpmail-store-queue-variables): New variable.
(smtpmail-send-it): Store SMTP variables if requested.
(smtpmail-send-queued-mail): Restore variables.
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/message.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index cdabdef2ec8..9baf09b0268 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -4922,6 +4922,7 @@ Each line should be no more than 79 characters long." (defvar smtpmail-smtp-service) (defvar smtpmail-smtp-user) (defvar smtpmail-stream-type) +(defvar smtpmail-store-queue-variables) (defun message-multi-smtp-send-mail () "Send the current buffer to `message-send-mail-function'. @@ -4937,7 +4938,8 @@ that instead." (message-send-mail-with-sendmail)) ((equal (car method) "smtp") (require 'smtpmail) - (let* ((smtpmail-smtp-server (nth 1 method)) + (let* ((smtpmail-store-queue-variables t) + (smtpmail-smtp-server (nth 1 method)) (service (nth 2 method)) (port (string-to-number service)) ;; If we're talking to the TLS SMTP port, then force a |