Mercurial > emacs

comparison lisp/gnus/smime.el @ 110718:38ee498456a4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* lisp/gnus/smime.el (smime-cert-by-ldap-1): Drop Emacs 21 code.
author Glenn Morris <rgm@gnu.org>
date Sat, 02 Oct 2010 19:09:53 -0700
parents 2b8ece636433
children 236342431786
comparison
equal deleted inserted replaced
110717:60a469b3a72c 110718:38ee498456a4
1 ;;; smime.el --- S/MIME support library 1 ;;; smime.el --- S/MIME support library
2 2
3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
4 ;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. 4 ;; 2009, 2010 Free Software Foundation, Inc.
5 5
6 ;; Author: Simon Josefsson <simon@josefsson.org> 6 ;; Author: Simon Josefsson <simon@josefsson.org>
7 ;; Keywords: SMIME X.509 PEM OpenSSL 7 ;; Keywords: SMIME X.509 PEM OpenSSL
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
589 589
590 (defun smime-cert-by-ldap-1 (mail host) 590 (defun smime-cert-by-ldap-1 (mail host)
591 "Get cetificate for MAIL from the ldap server at HOST." 591 "Get cetificate for MAIL from the ldap server at HOST."
592 (let ((ldapresult 592 (let ((ldapresult
593 (funcall 593 (funcall
594 (if (or (featurep 'xemacs) 594 (if (featurep 'xemacs)
595 ;; For Emacs >= 22 we don't need smime-ldap.el
596 (< emacs-major-version 22))
597 (progn 595 (progn
598 (require 'smime-ldap) 596 (require 'smime-ldap)
599 'smime-ldap-search) 597 'smime-ldap-search)
600 'ldap-search) 598 'ldap-search)
601 (concat "mail=" mail) 599 (concat "mail=" mail)