From b10d32ef78a009305572ac2b0922e24292fe73ac Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 31 Oct 2010 19:11:34 -0700 Subject: [PATCH] Silence smime.el compilation. * lisp/gnus/smime.el (ldap-search): Declare. (smime-cert-by-ldap-1): Require ldap on Emacs. --- lisp/gnus/ChangeLog | 3 +++ lisp/gnus/smime.el | 7 ++++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index af52b316ea9..efc059aefe1 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,8 @@ 2010-11-01 Glenn Morris + * smime.el (ldap-search): Declare. + (smime-cert-by-ldap-1): Require ldap on Emacs. + * nnimap.el: Require nnmail, and gnus-sum when compiling. (nnimap-keepalive): Use gnus-float-time. diff --git a/lisp/gnus/smime.el b/lisp/gnus/smime.el index e28c07ffaad..acb50f11321 100644 --- a/lisp/gnus/smime.el +++ b/lisp/gnus/smime.el @@ -587,6 +587,9 @@ A string or a list of strings is returned." (kill-buffer digbuf) retbuf)) +(declare-function ldap-search "ldap" + (filter &optional host attributes attrsonly withdn)) + (defun smime-cert-by-ldap-1 (mail host) "Get cetificate for MAIL from the ldap server at HOST." (let ((ldapresult @@ -595,7 +598,9 @@ A string or a list of strings is returned." (progn (require 'smime-ldap) 'smime-ldap-search) - 'ldap-search) + (progn + (require 'ldap) + 'ldap-search)) (concat "mail=" mail) host '("userCertificate") nil)) (retbuf (generate-new-buffer (format "*certificate for %s*" mail))) -- 2.39.5