diff options
| author | Reiner Steib <Reiner.Steib@gmx.de> | 2007-11-22 20:26:33 +0000 |
|---|---|---|
| committer | Reiner Steib <Reiner.Steib@gmx.de> | 2007-11-22 20:26:33 +0000 |
| commit | 145cc6b9ea127439b239ffddbcbbf687170b759c (patch) | |
| tree | bd3b789b0e3eec1c4577dd053b3a840af282fdca /lisp/gnus/smime.el | |
| parent | e3e7216217d8df0261e4e317c7d2e368d78a9377 (diff) | |
| download | emacs-145cc6b9ea127439b239ffddbcbbf687170b759c.tar.gz | |
(smime-cert-by-ldap-1): Use `ldap-search' instead of
`smime-ldap-search' for Emacs 22 and up.
Diffstat (limited to 'lisp/gnus/smime.el')
| -rw-r--r-- | lisp/gnus/smime.el | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/lisp/gnus/smime.el b/lisp/gnus/smime.el index 592500d5dec..f58339ed58f 100644 --- a/lisp/gnus/smime.el +++ b/lisp/gnus/smime.el @@ -122,7 +122,6 @@ ;;; Code: (require 'dig) -(require 'smime-ldap) (require 'password) (eval-when-compile (require 'cl)) @@ -589,8 +588,17 @@ A string or a list of strings is returned." (defun smime-cert-by-ldap-1 (mail host) "Get cetificate for MAIL from the ldap server at HOST." - (let ((ldapresult (smime-ldap-search (concat "mail=" mail) - host '("userCertificate") nil)) + (let ((ldapresult + (funcall + (if (or (featurep 'xemacs) + ;; For Emacs >= 22 we don't need smime-ldap.el + (< emacs-major-version 22)) + (progn + (require 'smime-ldap) + 'smime-ldap-search) + 'ldap-search) + (concat "mail=" mail) + host '("userCertificate") nil)) (retbuf (generate-new-buffer (format "*certificate for %s*" mail))) cert) (if (and (>= (length ldapresult) 1) |