Index: lisp/ChangeLog
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/ChangeLog,v
retrieving revision 7.996
diff -u -p -r7.996 ChangeLog
--- lisp/ChangeLog	10 Feb 2006 18:36:55 -0000	7.996
+++ lisp/ChangeLog	14 Feb 2006 22:02:17 -0000
@@ -1,3 +1,8 @@
+2006-02-14  Arne J,Ax(Brgensen  <arne@arnested.dk>
+
+	* smime.el (smime-cert-by-ldap-1): Fix bug where
+	`smime-ldap-search' returns results without userCertificates.
+
 2006-02-10  Reiner Steib  <Reiner.Steib@gmx.de>
 
 	* gnus-group.el (gnus-group-make-tool-bar): Remove duplicate check
Index: lisp/smime.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/smime.el,v
retrieving revision 7.20
diff -u -p -r7.20 smime.el
--- lisp/smime.el	8 Feb 2006 04:17:15 -0000	7.20
+++ lisp/smime.el	14 Feb 2006 22:02:17 -0000
@@ -594,7 +594,8 @@ A string or a list of strings is returne
 				       host '("userCertificate") nil))
 	(retbuf (generate-new-buffer (format "*certificate for %s*" mail)))
 	cert)
-    (if (>= (length ldapresult) 1)
+    (if (and (>= (length ldapresult) 1)
+             (> (length (cadaar ldapresult)) 0))
 	(with-current-buffer retbuf
 	  ;; Certificates on LDAP servers _should_ be in DER format,
 	  ;; but there are some servers out there that distributes the