X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/f7ff1b0f0792f1f870778404531e68e77832c4a1..3ca74e5368a1022e332a0601d9be2418dbe8c083:/lisp/net/soap-client.el

diff --git a/lisp/net/soap-client.el b/lisp/net/soap-client.el
index b5453733d1..42c698876c 100644
--- a/lisp/net/soap-client.el
+++ b/lisp/net/soap-client.el
@@ -729,9 +729,7 @@ traverse an element tree."
                               (incf nprocessed)
                               (soap-resolve-references-for-element e wsdl)
                               (setf (soap-element-namespace-tag e) nstag))))))
-                 (soap-namespace-elements ns))))
-
-    (message "Processed %d" nprocessed))
+                 (soap-namespace-elements ns)))))
     wsdl)
 
 ;;;;; Loading WSDL from XML documents
@@ -1714,10 +1712,6 @@ operations in a WSDL document."
                     ;; error)
                     (warn "Error in SOAP response: HTTP code %s"
 			  url-http-response-status))
-                                 (when (> (buffer-size) 1000000)
-                                   (soap-warning
-				    "Received large message: %s bytes"
-				    (buffer-size)))
                 (let ((mime-part (mm-dissect-buffer t t)))
                   (unless mime-part
                     (error "Failed to decode response from server"))
@@ -1745,7 +1739,7 @@ operations in a WSDL document."
 
 
 ;;; Local Variables:
-;;; mode: outline-minor
+;;; eval: (outline-minor-mode 1)
 ;;; outline-regexp: ";;;;+"
 ;;; End: