(url-display-percentage): Only show a message if `url-show-status' is non-nil.

2 files changed, 15 insertions, 6 deletions

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index bcd4eac16c2..597c27bed67 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,11 @@
+2006-11-23  Diane Murray  <disumu@x3y2z1.net>
+
+        * url-http.el (url-http-content-length-after-change-function): Use
+        `url-lazy-message'.
+
+        * url-util.el (url-display-percentage): Only show a message if
+        `url-show-status' is non-nil.
+
 2006-11-15  Magnus Henoch  <mange@freemail.hu>
 
         * url-http.el (url-http): Make proxy-object buffer-local, to
diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el
index 0aeb141c017..57c0f05661d 100644
--- a/lisp/url/url-util.el
+++ b/lisp/url/url-util.el
@@ -244,12 +244,13 @@ Will not do anything if `url-show-status' is nil."
 
 ;;;###autoload
 (defun url-display-percentage (fmt perc &rest args)
-  (if (null fmt)
-      (if (fboundp 'clear-progress-display)
-          (clear-progress-display))
-    (if (and (fboundp 'progress-display) perc)
-        (apply 'progress-display fmt perc args)
-      (apply 'message fmt args))))
+  (when url-show-status
+    (if (null fmt)
+        (if (fboundp 'clear-progress-display)
+            (clear-progress-display))
+      (if (and (fboundp 'progress-display) perc)
+          (apply 'progress-display fmt perc args)
+        (apply 'message fmt args)))))
 
 ;;;###autoload
 (defun url-percentage (x y)