/[emacs]/emacs/lisp/url/url-ldap.el
ViewVC logotype

Diff of /emacs/lisp/url/url-ldap.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by monnier, Mon Apr 12 04:04:31 2004 UTC revision 1.4.2.1 by miles, Thu Oct 14 08:49:52 2004 UTC
# Line 28  Line 28 
28  (require 'url-parse)  (require 'url-parse)
29  (require 'url-util)  (require 'url-util)
30  (require 'ldap)  (require 'ldap)
31    (autoload 'tls-certificate-information "tls")
32    
33  ;; This has been implemented from RFC2255 'The LDAP URL Format' (Dec 1997)  ;; This has been implemented from RFC2255 'The LDAP URL Format' (Dec 1997)
34  ;;  ;;
# Line 96  Line 97 
97        (require 'ssl)        (require 'ssl)
98      (error nil))      (error nil))
99    (let ((vals (if (fboundp 'ssl-certificate-information)    (let ((vals (if (fboundp 'ssl-certificate-information)
100                    (ssl-certificate-information data))))                    (ssl-certificate-information data)
101                    (tls-certificate-information data))))
102      (if (not vals)      (if (not vals)
103          "<b>Unable to parse certificate</b>"          "<b>Unable to parse certificate</b>"
104        (concat "<table border=0>\n"        (concat "<table border=0>\n"

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.4.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26