diff options
| author | Lars Magne Ingebrigtsen | 2011-07-01 01:15:02 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen | 2011-07-01 01:15:02 +0200 |
| commit | c53dc7fca19dfd2e3abdddfdefae06ff8d620f32 (patch) | |
| tree | ca827ae662bc5e6dc8480a793e555b7b5ce645af | |
| parent | fd4983f28a6bb3c75952a9b3fc00705f74bfd94e (diff) | |
| download | emacs-c53dc7fca19dfd2e3abdddfdefae06ff8d620f32.tar.gz emacs-c53dc7fca19dfd2e3abdddfdefae06ff8d620f32.zip | |
* net/soap-client.el (soap-invoke, soap-wsdl-resolve-references):
Remove two rather uninteresting debugging-like messages to make
debbugs.el more silent.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/net/soap-client.el | 8 |
2 files changed, 5 insertions, 7 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 67bf02c4c83..c1c213d1440 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,9 @@ | |||
| 1 | 2011-06-30 Lars Magne Ingebrigtsen <larsi@gnus.org> | 1 | 2011-06-30 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 2 | 2 | ||
| 3 | * net/soap-client.el (soap-invoke, soap-wsdl-resolve-references): | ||
| 4 | Remove two rather uninteresting debugging-like messages to make | ||
| 5 | debbugs.el more silent. | ||
| 6 | |||
| 3 | * comint.el (comint-password-prompt-regexp): Accept "Response" as | 7 | * comint.el (comint-password-prompt-regexp): Accept "Response" as |
| 4 | a password-like phrase. | 8 | a password-like phrase. |
| 5 | 9 | ||
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")) |