Wanderlust のアドレス補完に LDAP を使う

内部ネットにいる時には LDAP サーバにアクセスしてアドレスを補完したい場合.

(let ((ipaddr (format-network-address (car (network-interface-info "eth0")))))
(if ipaddr
      (when (string-match "^XXX.YYY" ipaddr)
        (setq wl-use-ldap t)
        (setq wl-ldap-server "ldapサーバ")
        (setq wl-ldap-port "ldap port")
        (setq wl-ldap-base "ou=ほげほげ,dc=へろへろ,dc=へろへろ"))))

我ながら ad hoc. emacs 内でドメイン調べるとか, もっとスマートにできんもんかな.