[Emacs-diffs] /srv/bzr/emacs/trunk r104819: * net/soap-client.el (soap-invoke, soap-wsdl-resolve-references):

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 104819
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Fri 2011-07-01 01:15:02 +0200
message:
  * net/soap-client.el (soap-invoke, soap-wsdl-resolve-references):
  Remove two rather uninteresting debugging-like messages to make
  debbugs.el more silent.
modified:
  lisp/ChangeLog
  lisp/net/soap-client.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-06-30 23:11:36 +0000
+++ b/lisp/ChangeLog    2011-06-30 23:15:02 +0000
@@ -1,5 +1,9 @@
 2011-06-30  Lars Magne Ingebrigtsen  <address@hidden>
 
+       * net/soap-client.el (soap-invoke, soap-wsdl-resolve-references):
+       Remove two rather uninteresting debugging-like messages to make
+       debbugs.el more silent.
+
        * comint.el (comint-password-prompt-regexp): Accept "Response" as
        a password-like phrase.
 

=== modified file 'lisp/net/soap-client.el'
--- a/lisp/net/soap-client.el   2011-06-09 20:22:06 +0000
+++ b/lisp/net/soap-client.el   2011-06-30 23:15:02 +0000
@@ -729,9 +729,7 @@
                               (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 @@
                     ;; 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"))