diff options
Diffstat (limited to 'lisp/net/soap-client.el')
| -rw-r--r-- | lisp/net/soap-client.el | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/lisp/net/soap-client.el b/lisp/net/soap-client.el index b7b0b61f4e1..42c698876cd 100644 --- a/lisp/net/soap-client.el +++ b/lisp/net/soap-client.el | |||
| @@ -729,9 +729,7 @@ traverse an element tree." | |||
| 729 | (incf nprocessed) | 729 | (incf nprocessed) |
| 730 | (soap-resolve-references-for-element e wsdl) | 730 | (soap-resolve-references-for-element e wsdl) |
| 731 | (setf (soap-element-namespace-tag e) nstag)))))) | 731 | (setf (soap-element-namespace-tag e) nstag)))))) |
| 732 | (soap-namespace-elements ns)))) | 732 | (soap-namespace-elements ns))))) |
| 733 | |||
| 734 | (message "Processed %d" nprocessed)) | ||
| 735 | wsdl) | 733 | wsdl) |
| 736 | 734 | ||
| 737 | ;;;;; Loading WSDL from XML documents | 735 | ;;;;; Loading WSDL from XML documents |
| @@ -1714,10 +1712,6 @@ operations in a WSDL document." | |||
| 1714 | ;; error) | 1712 | ;; error) |
| 1715 | (warn "Error in SOAP response: HTTP code %s" | 1713 | (warn "Error in SOAP response: HTTP code %s" |
| 1716 | url-http-response-status)) | 1714 | url-http-response-status)) |
| 1717 | (when (> (buffer-size) 1000000) | ||
| 1718 | (soap-warning | ||
| 1719 | "Received large message: %s bytes" | ||
| 1720 | (buffer-size))) | ||
| 1721 | (let ((mime-part (mm-dissect-buffer t t))) | 1715 | (let ((mime-part (mm-dissect-buffer t t))) |
| 1722 | (unless mime-part | 1716 | (unless mime-part |
| 1723 | (error "Failed to decode response from server")) | 1717 | (error "Failed to decode response from server")) |