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

[Simon Josefsson]

Index: emacs/lisp/url/url-ldap.el
diff -c emacs/lisp/url/url-ldap.el:1.4 emacs/lisp/url/url-ldap.el:1.5
*** emacs/lisp/url/url-ldap.el:1.4      Mon Apr 12 04:04:31 2004
--- emacs/lisp/url/url-ldap.el  Tue Oct 12 09:55:08 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"