[Emacs-diffs] Changes to emacs/lisp/url/url-ldap.el [lexbind]

[Miles Bader]

Index: emacs/lisp/url/url-ldap.el
diff -c emacs/lisp/url/url-ldap.el:1.3.2.3 emacs/lisp/url/url-ldap.el:1.3.2.4
*** emacs/lisp/url/url-ldap.el:1.3.2.3  Tue Apr 13 10:16:18 2004
--- emacs/lisp/url/url-ldap.el  Mon Oct 25 04:19:35 2004
***************
*** 28,33 ****
--- 28,34 ----
  (require 'url-parse)
  (require 'url-util)
  (require 'ldap)
+ (autoload 'tls-certificate-information "tls")
  
  ;; This has been implemented from RFC2255 'The LDAP URL Format' (Dec 1997)
  ;;
***************
*** 96,102 ****
        (require 'ssl)
      (error nil))
    (let ((vals (if (fboundp 'ssl-certificate-information)
!                 (ssl-certificate-information data))))
      (if (not vals)
        "<b>Unable to parse certificate</b>"
        (concat "<table border=0>\n"
--- 97,104 ----
        (require 'ssl)
      (error nil))
    (let ((vals (if (fboundp 'ssl-certificate-information)
!                 (ssl-certificate-information data)
!               (tls-certificate-information data))))
      (if (not vals)
        "<b>Unable to parse certificate</b>"
        (concat "<table border=0>\n"