Re: Multiple SMTP servers with Gnus?

[Bruno Tavernier <tavernier.bruno@gmail.com>]

Hello Robert,

Robert Pluim <rpluim@gmail.com> writes:

> I currently have one SMTP server I talk to with Gnus, and another
> account with a web-mail interface that also supports SMTP. I'm
> considering just using Gnus for both, but I was wondering what the
> canonical method was for configuring this? gnus-posting-styles would
> theoretically fit, but I can't see any way to set any of the smtpmail
> variables in a posting style.

I wrote this simple piece of elisp code to automatically choose the smtp
parameters depending on the content (regexp) in the From header.

It works flawlessly so far. :-)

; ===== AUTO SMTP =====

; Use smtp with gnus/message
(setq message-send-mail-function 'smtpmail-send-it)

(defun my-message-send-smtp ()
  "Automatically adjust the stmp parameters to match the From header."
  (interactive)
  (cond 
   ; GMAIL
   ((string-match "gmail" (message-field-value "From"))
    ; SMTP address and port
    (setq smtpmail-smtp-server "smtp.gmail.com")
    (setq smtpmail-smtp-service 587)
    ; Secured connection
    (setq smtpmail-starttls-credentials '(("smtp.gmail.com" 587 nil nil))))
   ; MY WORK PLACE
   ((string-match "mycompany" (message-field-value "From"))
    ; SMTP address and port
    (setq smtpmail-smtp-server "mail.mycompany")
    (setq smtpmail-smtp-service 25))
   ))

(add-hook 'message-send-hook 'my-message-send-smtp)

; ===== END =====

-- 
Bruno