Re: Local interface used for outbound network connections

[storm@cua.dk (Kim F. Storm)]

Mario Lang <mlang@delysid.org> writes:

> > I definitely intended make-network-process to make this info
> > available, but I forgot to implement it.  Thanks for reminding me :-)
> >
> Thanks a lot!  Tested, and works here.

Good.

> 
> (defun erc-dcc-get-host (proc)
>   (let ((sockaddr (plist-get (process-contact erc-process t) :local)))
>     (when sockaddr
>         (mapconcat #'number-to-string (subseq sockaddr 0 4) "."))))

I just installed a change to format-network-address, so you can now 
omit the port number from the result string.  

You may thus simplify your code like this (format-network-address
returns nil if the address is nil):

(defun erc-dcc-get-host (proc)
  (let ((sockaddr (plist-get (process-contact erc-process t) :local)))
     (format-network-address sockaddr t)))


-- 
Kim F. Storm <storm@cua.dk> http://www.cua.dk