Automatically selecting an SMTP server.

Automatically selecting an SMTP server.

[Oliver Jennrich]

My computer is a laptop and is therefore used in changing
IT environments - most notably the address or name of the SMTP server
that is used at a particular location. 

Is there an easy way to automatically configure the right server,
maybe based on IP-addresses?

I was thinking along the lines of abusing message-send-hook, but I
have no idea how to find the current IP-number in lisp. 

Any ideas?

-- 
Space - the final frontier

Re: Automatically selecting an SMTP server.

[Jesper Harder]

Oliver Jennrich <oliver.jennrich@gmx.net> writes:

> I was thinking along the lines of abusing message-send-hook, but I
> have no idea how to find the current IP-number in lisp.

I think there is a way in the development version of Emacs now.  That
doesn't help you since you'r using XEmacs.

But if Lisp doesn't provide it, then you need to figure out some
external command to run.  I use the following to get the current IP
of my box:

(defun smtpmail-fqdn ()
  (let ((str (shell-command-to-string "/sbin/ifconfig ppp0")))
    (if (string-match "inet addr:\\([^ ]+\\) " str)
	(concat "[" (match-string-no-properties 1 str) "]")
      (system-name))))

You need a different command if you're not using PPP and GNU/Linux, of
course.

-- 
Jesper Harder                                <http://purl.org/harder/>