aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Magne Ingebrigtsen2011-07-01 01:15:02 +0200
committerLars Magne Ingebrigtsen2011-07-01 01:15:02 +0200
commitc53dc7fca19dfd2e3abdddfdefae06ff8d620f32 (patch)
treeca827ae662bc5e6dc8480a793e555b7b5ce645af
parentfd4983f28a6bb3c75952a9b3fc00705f74bfd94e (diff)
downloademacs-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/ChangeLog4
-rw-r--r--lisp/net/soap-client.el8
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 @@
12011-06-30 Lars Magne Ingebrigtsen <larsi@gnus.org> 12011-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"))