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=へろへろ"))))