multiple smtp servers depending on recipient

[Pawel]

Hallo
when sending emails I want emacs choose different smtp servers based on 
recipient address.
I imagine that this action should be hooked to mail-send-hook to make it 
performed automatically.
email address matching would probably be done based on regular expressions.

the only thing user would have to configure would be:

(setq alist-smtp-servers
      '(
        (".*@my.company.com" . ( company smtp server details ))
        (".*@my.school.com" . ( school smtp server details ))
        (".*" . ( general smtp server details ))
        ))

I am planning to do such thing, but maybe there is a ready to use solution.

If not, what way would You suggest me to go.

I think I have to dive into sendmail.el file, because I expect there will be a 
lot of methods I need.

Greetings