Re: IMAP Sending Issue with Multiple Accounts

[James Thomas]

Serghei Iakovlev via "Announcements and discussions for GNUS, the GNU Emacs 
Usenet newsreader (in English)" wrote:

> James Thomas writes:
>
>
>> But there seems to be a better way; see:
>> https://git.savannah.gnu.org/cgit/emacs.git/tree/lisp/gnus/message.el#n5027
>>
>> Basically if you name the function as message-send-mail-with-<name>, you
>> should be able to directly call it from X-Message-SMTP-Method.
>
>
> So, essentially, you’re suggesting implementing two functions like:
>
> (defun message-send-mail-with-protonmail ())
> (defun message-send-mail-with-gmail ())
>
>
> and then specifying them in `gnus-posting-styles as':
>
> ("X-Message-SMTP-Method" "protonmail 127.0.0.1 1025")
> ("X-Message-SMTP-Method" "gmail smtp.gmail.com 587")

Need not be that complex, AFAICT. The method could simply be something
like "starttls 127.0.0.1 1025" where the only thing you would do is
let-bind the stream type and call the default.

> Did I understand you correctly? If that’s what you meant, I think
> I’ll pass on this approach. The small hook I’ve implemented, which
> has now been simplified further, seems like the most concise option
> for my needs:
>
> (defun set-smtp-stream-type-by-domain ()
>   (setq smtpmail-stream-type
>         (pcase (cadr (split-string user-mail-address "@"))
>           ("gmail.com" 'starttls)
>           (_ 'ssl))))
>
> (add-hook 'message-send-hook #'set-smtp-stream-type-by-domain)
>
> Thanks for the suggestion, though!

Cool. But IMO a hook is rather opaque compared to that where you can see
the actual method in the buffer's header, before you send it (less
goof-up prone).

--