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

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index bcd4eac16c2861ea8f574670e57820f6c8f300a2..597c27bed67c35180c610e35c090f7aa9b91bce9 100644 (file)
--- 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 0aeb141c0175bff92520d8f8371dbef75dc83957..57c0f05661dbddb292a3668b51c689b59f5c26e1 100644 (file)
--- 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)