25 lines
943 B
EmacsLisp
25 lines
943 B
EmacsLisp
;; Gandi SMTP
|
|
;; https://docs.gandi.net/en/gandimail/standard_email_settings/index.html
|
|
|
|
(setq smtpmail-smtp-server "mail.gandi.net"
|
|
smtpmail-stream-type 'starttls
|
|
smtpmail-smtp-service 587)
|
|
|
|
;; REVIEW: If we don't set `user-mail-address', `mail-host-address' or
|
|
;; `message-user-fqdn', `message-make-fqdn' will put
|
|
;; "i-did-not-set--mail-host-address--so-tickle-me" in the In-Reply-To header.
|
|
(setq user-mail-address "mail@ambrevar.xyz")
|
|
|
|
;; This is only useful to distinguish between similar entries in .authinfo / password-store.
|
|
(defun ambrevar/set-smtp-user ()
|
|
"Set `smtpmail-smtp-user' to the value in the \"From\" field."
|
|
(let ((header-value (message-fetch-field "From")))
|
|
(and
|
|
header-value
|
|
(setq smtpmail-smtp-user
|
|
(substring-no-properties
|
|
(cadr (mail-extract-address-components header-value)))))))
|
|
(add-hook 'message-send-hook #'ambrevar/set-smtp-user)
|
|
|
|
(provide 'init-smtpmail)
|