Re: IMAP Sending Issue with Multiple Accounts

[Serghei Iakovlev]

James Thomas <jimjoe@gmx.net> 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:

--8<-----------------cut here----------------start--------------->8--
(defun message-send-mail-with-protonmail ())
(defun message-send-mail-with-gmail ())
--8<-----------------cut here----------------end----------------->8--

and then specifying them in `gnus-posting-styles as':

--8<-----------------cut here----------------start--------------->8--
("X-Message-SMTP-Method" "protonmail 127.0.0.1 1025")
("X-Message-SMTP-Method" "gmail smtp.gmail.com 587")
--8<-----------------cut here----------------end----------------->8--

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:

--8<-----------------cut here----------------start--------------->8--
(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)
--8<-----------------cut here----------------end----------------->8--

Thanks for the suggestion, though!

-- 
Serghei Iakovlev