Merge from trunk.

[gnu-emacs] / lisp / net / soap-client.el

diff --git a/lisp/net/soap-client.el b/lisp/net/soap-client.el
index b5453733d1db48b7f457d5cb9c91c0cfe1b276eb..42c698876cdfd40dcbf200d832fd75e0f0b3a244 100644 (file)
--- 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."
 
 \f
 ;;; Local Variables:
-;;; mode: outline-minor
+;;; eval: (outline-minor-mode 1)
 ;;; outline-regexp: ";;;;+"
 ;;; End: