Re: smtp credential, multiple smtp, posting styles and smtpmail

[Richard Riley <rileyrg@googlemail.com>]

Philipp Haselwarter <philipp.haselwarter@gmx.de> writes:

> My config is using the code from emacswiki. I set my identities with
> posting styles, smtp parameters get set on sending. Works flawlessly,
> with no dependency on external programs.
>
>
>
> (defun set-smtp (mech server port user password)
>   "Set related SMTP variables for supplied parameters."
>   (setq smtpmail-smtp-server server
>         smtpmail-smtp-service port
>         smtpmail-auth-credentials (list (list server port user password))
>         smtpmail-auth-supported (list mech)
>         smtpmail-starttls-credentials nil)
>   (message "Setting SMTP server to `%s:%s' for user `%s'."
>            server port user))
>
> (defun set-smtp-ssl (server port user password &optional key cert)
>   "Set related SMTP and SSL variables for supplied parameters."
>   (setq starttls-use-gnutls t
>         starttls-gnutls-program "gnutls-cli"
>         ;; TODO: Add this to the server parameters
>         ;; starttls-extra-arguments nil
>         smtpmail-smtp-server server
>         smtpmail-smtp-service port
>         smtpmail-auth-credentials (list (list server port user password))
>         smtpmail-starttls-credentials (list (list server port key cert)))
>   (message
>    "Setting SMTP server to `%s:%s' for user `%s'. (SSL enabled.)"
>    server port user))
>
> (defun change-smtp ()
>   "Change the SMTP server according to the current from line."
>   (interactive)
>   (save-excursion
>     (loop with from = (save-restriction
>                         (message-narrow-to-headers)
>                         (message-fetch-field "from"))
>           for (auth-mech address . auth-spec) in smtp-accounts
>           when (string-match address from)
>           do (cond
>               ((memq auth-mech '(cram-md5 plain login))
>                (return (apply 'set-smtp (cons auth-mech auth-spec))))
>               ((eql auth-mech 'ssl)
>                (return (apply 'set-smtp-ssl auth-spec)))
>               (t (error "Unrecognized SMTP auth. mechanism: `%s'." auth-mech)))
>           finally (error "Cannot infer SMTP information."))))
>
> (add-hook 'message-send-hook 'change-smtp)
>
> (setq smtp-accounts '((ssl "philipp.haselwarter@gmx.de"
>                            "localhost" "2025"
>                            "philipp" nil)
>                       (ssl "philipp.haselwarter@etu.upmc.fr" "courriel.upmc.fr" "587"
>                            "29....." nil)
>                       (ssl "me@gmail.com" "smtp.gmail.com" "587"
>                            "me@gmail.com" nil)))
>
>
> (setq gnus-posting-styles
>       '((".*"
>          (name "Philipp Haselwarter")
>          (address "philipp.haselwarter@gmx.de")
>          (body "\n\n")
>          (signature-file "~/.signature"))
>         ("University"
>          (name "Philipp Haselwarter")
>          (address "philipp.haselwarter@etu.upmc.fr"))))
>
>
>
> I have a gnus startup hook that opens a ssh tunnel to my mailserver on
> port 443 which allows me to read/send mail from behind firewalls, thus
> localhost as primary smtp server.

Yes, this is similar but superior to what I posted yesterday and uses a
switch to change the smtp server at message send time based on the
address which in turn is set in the gnus posting style. It was this
posting that got me thinking that I ought to be able to set all I need
in the posting style and not need to call the change smtp function or
equivalent.

Since I cant see your .authinfo.gpg, I am assuming it contains names
where the machine names match the second element in the smtp list
elements? This is certainly cleaner than using msmtp and so I'll give it
a go - thanks! Its certainly more comprehensive with the auth mechs
being checked,


side note :

(I'm still wonder if I ought to be just be able to set
smtpmail-auth-credentials in the gnus-posting-style and leave the
sendmail program as smtp and it "just work" - or rather I cant see why
it doesnt just work.

e.g '(("smtp.gmail.com" 25 "rileyrg@googlemail.com" "*******"))

in the posting style  : then no change-smtp at send stuff is required
and life is even simpler.)