X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fsmime-ldap.el;h=25d3bd8bfcb55c6ba39d279a23ab1951a09437bf;hb=7fa6b3db3cebd6fa64684f1cd4535653501f22bb;hp=882f9f80c6fecb3d17cd736f51463d95e2dad09b;hpb=9b139a13c0650a18872ebd64849560a97554afa8;p=gnus

diff --git a/lisp/smime-ldap.el b/lisp/smime-ldap.el
index 882f9f80c..25d3bd8bf 100644
--- a/lisp/smime-ldap.el
+++ b/lisp/smime-ldap.el
@@ -53,28 +53,8 @@ Additional search parameters can be specified through
   ;; for XEmacs
   (if (fboundp 'ldap-search-entries)
       (ldap-search-entries filter host attributes attrsonly)
-    ;; for Emacs 22
-    (if (>= emacs-major-version 22)
-	(cdr (ldap-search filter host attributes attrsonly))
-      ;; for Emacs 21.x
-      (or host
-	  (setq host ldap-default-host)
-	  (error "No LDAP host specified"))
-      (let ((host-plist (cdr (assoc host ldap-host-parameters-alist)))
-	    result)
-	(setq result (smime-ldap-search-internal
-		      (append host-plist
-			      (list 'host host
-				    'filter filter
-				    'attributes attributes
-				    'attrsonly attrsonly
-				    'withdn withdn))))
-	(cdr (if ldap-ignore-attribute-codings
-		 result
-	       (mapcar (function
-			(lambda (record)
-			  (mapcar 'ldap-decode-attribute record)))
-		       result)))))))
+    ;; for Emacs
+    (cdr (ldap-search filter host attributes attrsonly))))
 
 (defun smime-ldap-search-internal (search-plist)
   "Perform a search on a LDAP server.
@@ -120,8 +100,7 @@ an alist of attribute/value pairs."
 	    (equal "" filter))
 	(error "No search filter"))
     (setq filter (cons filter attributes))
-    (save-excursion
-      (set-buffer buf)
+    (with-current-buffer buf
       (erase-buffer)
       (if (and host
 	       (not (equal "" host)))
@@ -181,8 +160,7 @@ an alist of attribute/value pairs."
 				     "\\(<[\t ]*file://\\)?\\(.*\\)$"))
 	    (setq name (match-string 1)
 		  value (match-string 4))
-	    (save-excursion
-	      (set-buffer bufval)
+	    (with-current-buffer bufval
 	      (erase-buffer)
 	      (insert-file-contents-literally value)
 	      (delete-file value)
@@ -202,5 +180,4 @@ an alist of attribute/value pairs."
 
 (provide 'smime-ldap)
 
-;; arch-tag: 87e6bc44-21fc-4e9b-a89b-f55f031f78f8
 ;;; smime-ldap.el ends here