Re: separate smtps for my accounts

[Ted Zlatanov <tzz@lifelogs.com>]

On Wed, 17 Sep 2014 10:17:06 +0800 Eric Abrahamsen <eric@ericabrahamsen.net> wrote: 

EA> A unified or built-in solution for this would be pretty nice...

1) in my ~/.authinfo.gpg

#+begin_src text
machine smtp.gmail.com login ted@px.com port 587 password "pass1"
machine smtp.gmail.com login ted@lifelogs.com password "pass2"
#+end_src

2) I use this function, original author unknown:

#+begin_src lisp
(defun tzz-change-smtp ()
  "Change the SMTP server according to the current from line."
  (save-excursion
    (save-restriction
      (message-narrow-to-headers)
      (let* ((from (message-fetch-field "from"))
             (from-px (string-match "px" from))
             )
        (cond
         (from-px
          (setq smtpmail-smtp-service 587
                smtpmail-smtp-user "ted@px.com"
                smtpmail-smtp-server  "smtp.gmail.com"
                smtpmail-default-smtp-server smtpmail-smtp-server))
         (t
          (setq smtpmail-smtp-service 587
                smtpmail-smtp-user "ted@lifelogs.com"
                smtpmail-smtp-server  "smtp.gmail.com"
                smtpmail-default-smtp-server smtpmail-smtp-server)))))))

(add-hook 'message-send-hook 'tzz-change-smtp)
#+end_src

So basically the `smtpmail-smtp-user' and `smtpmail-smtp-server' are
matched against ~/.authinfo.gpg.

This is essentially what posting-styles is designed for. Does it look
robust enough to add support for it to the posting styles?  Or is it
already supported?  Sorry, I'm a bit out of date on this stuff :)

If we find a solution that works out of the box, we can add it to the
auth-source manual and tell people about it: (info "(auth) Help for users")

Ted