Message-ID: <1409668511.2507.32.camel@picnicpark.org>
Subject: Re: sending email using different server for different 'From:' field
From: Keith Amidon <camalot@picnicpark.org>
To: David Belohrad <david@belohrad.ch>
Date: Tue, 02 Sep 2014 07:35:11 -0700
In-Reply-To: <uaxzjei1a4j.fsf@beesknees.cern.ch>
References: <uaxzjei1a4j.fsf@beesknees.cern.ch>
Content-Type: text/plain; charset="UTF-8"
Mime-Version: 1.0
Content-Transfer-Encoding: 7bit
Cc: notmuch@notmuchmail.org
Precedence: list

On Tue, 2014-09-02 at 14:26 +0200, David Belohrad wrote:
> could that scenario be somehow fitted automatically, so when I overwrite
> the default 'From:' address (by hand. is it possible to do some
> automatic cycling?) to work address, so that message sender in emacs
> would automatically use work exchange server to deliver the mail?

I think this is more of a message-mode question than a notmuch question.
I use something very similar to code attached below, which is rather
brute-force, but does the job for me.

             --- Keith

-----

(defun kea/send-mail-with-x ()
  (interactive)
  (setq smtpmail-smtp-server "smtp.x.com"
        smtpmail-smtp-service 587
        smtpmail-local-domain "x.com"
        smtpmail-auth-user nil
        smtpmail-stream-type 'starttls))

(defun kea/send-mail-with-y ()
  (interactive)
  (setq smtpmail-smtp-server "email.y.com"
        smtpmail-smtp-service 587
        smtpmail-local-domain "y.com"
        smtpmail-auth-user nil
        smtpmail-stream-type 'starttls))

(defun kea/message-select-mail-dest ()
  (cond ((string-match "<kea@x.com>"
                       (message-field-value "From"))
         (kea/send-mail-with-x))
        (t
         (kea/send-mail-with-y))))

(kea/send-mail-with-y)
(add-hook 'message-send-hook 'kea/message-select-mail-dest)