| 12345678910111213141516171819202122232425 |
- ;; 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)
|
