Avoid potential extensive verbosity in gnus-summary-browse-url

* lisp/wid-edit.el (widget-move): Accept suppress-echo argument.
* lisp/gnus/gnus-sum.el (gnus-collect-urls): Use it.

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 1f330e3ebf3282b3690fe5e7a24bb1be64824ade..fdecad4e4241850badce2ada68a668847157062e 100644 (file)
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -9438,7 +9438,7 @@ With optional ARG, move across that many fields."
   "Return the list of URLs in the buffer after (point).
 The 1st element is the one named 'Link', if any."
   (let ((pt (point)) urls link)
-    (while (progn (widget-move 1)
+    (while (progn (widget-move 1 t) ; no echo
                  ;; `widget-move' wraps around to top of buffer.
                  (> (point) pt))
       (setq pt (point))

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index b96f6aabf96c9174b8a5d4d6739b62e8fdc2b379..dd03a24bb368c7b1aa717b64555ffcb5decc6f8b 100644 (file)
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -1040,9 +1040,11 @@ POS defaults to the value of (point)."
   "If non-nil, use overlay change functions to tab around in the buffer.
 This is much faster.")
 
-(defun widget-move (arg)
+(defun widget-move (arg &optional suppress-echo)
   "Move point to the ARG next field or button.
-ARG may be negative to move backward."
+ARG may be negative to move backward.
+When the second optional argument is non-nil,
+nothing is shown in the echo area."
   (or (bobp) (> arg 0) (backward-char))
   (let ((wrapped 0)
        (number arg)
@@ -1084,7 +1086,8 @@ ARG may be negative to move backward."
       (while (eq (widget-tabable-at) new)
        (backward-char)))
     (forward-char))
-  (widget-echo-help (point))
+  (unless suppress-echo
+    (widget-echo-help (point)))
   (run-hooks 'widget-move-hook))
 
 (defun widget-forward (arg)