# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1288577494 25200
# Node ID c8afa6dd9295dbd18f30f4a87de4155eed499652
# Parent  c6f71b33c8ee73fdec965b4b776d41d4f73f219d
Silence smime.el compilation.
* lisp/gnus/smime.el (ldap-search): Declare.
(smime-cert-by-ldap-1): Require ldap on Emacs.

diff -r c6f71b33c8ee -r c8afa6dd9295 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Sun Oct 31 19:07:01 2010 -0700
+++ b/lisp/gnus/ChangeLog	Sun Oct 31 19:11:34 2010 -0700
@@ -1,5 +1,8 @@
 2010-11-01  Glenn Morris  <rgm@gnu.org>
 
+	* 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 -r c6f71b33c8ee -r c8afa6dd9295 lisp/gnus/smime.el
--- a/lisp/gnus/smime.el	Sun Oct 31 19:07:01 2010 -0700
+++ b/lisp/gnus/smime.el	Sun Oct 31 19:11:34 2010 -0700
@@ -587,6 +587,9 @@
       (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 @@
 	      (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)))