diff options
| author | Sam Steingold <sds@gnu.org> | 2019-07-24 12:08:38 -0400 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2019-07-24 12:12:48 -0400 |
| commit | fd86149b1a05a38a9d21616003107aa2ab2e6c3f (patch) | |
| tree | 04ac644de305b63d5c2275d4e85263610d95d843 /lisp/gnus | |
| parent | 7da926ce3c6388bfdd041e2b6588dce76d95311f (diff) | |
| download | emacs-fd86149b1a05a38a9d21616003107aa2ab2e6c3f.tar.gz | |
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.
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/gnus-sum.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 1f330e3ebf3..fdecad4e424 100644 --- 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)) |