From 8a9b4cfdff3422d9085cf052a8f6d34d81d7ac96 Mon Sep 17 00:00:00 2001
From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 15 Mar 2022 12:36:06 +0100
Subject: [PATCH] Revert "New command `gnus-summary-browse-all-urls' bound to
 "v""

This reverts commit f52dcfd03ad542704d9a43faab0c33be09ab442e.

It was never agreed that this should be added.
---
 etc/NEWS              |  5 ----
 lisp/gnus/gnus-sum.el | 57 +++++++++++++++++--------------------------
 2 files changed, 22 insertions(+), 40 deletions(-)

diff --git a/etc/NEWS b/etc/NEWS
index fc6c8b82546..d6b5da3902e 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -699,11 +699,6 @@ displayed as emojis.  Default nil.
 This is bound to 'W D e' and will display symbols that have emoji
 representation as emojis.
 
-+++
-*** New command 'gnus-summary-browse-all-urls'.
-This is for the rare cases when you want to open _all_ the URLs in the
-article, and is bound to "v".
-
 ** EIEIO
 
 +++
diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 098d3a067d3..1be5a48068c 100644
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -2010,7 +2010,6 @@ increase the score of each group you read."
   "s" #'gnus-summary-isearch-article
   "TAB" #'gnus-summary-button-forward
   "<backtab>" #'gnus-summary-button-backward
-  "v" #'gnus-summary-browse-all-urls
   "w" #'gnus-summary-browse-url
   "t" #'gnus-summary-toggle-header
   "g" #'gnus-summary-show-article
@@ -2197,7 +2196,6 @@ increase the score of each group you read."
         "s" #'gnus-summary-isearch-article
         "TAB" #'gnus-summary-button-forward
         "<backtab>" #'gnus-summary-button-backward
-        "v" #'gnus-summary-browse-all-urls
         "w" #'gnus-summary-browse-url
         "P" #'gnus-summary-print-article
         "S" #'gnus-sticky-article
@@ -9447,16 +9445,6 @@ The 1st element is the button named by `gnus-collect-urls-primary-text'."
       (push primary urls))
     (delete-dups urls)))
 
-(defun gnus-collect-urls-from-article ()
-  "Select the article and return the list of URLs in it.
-See 'gnus-collect-urls'."
-  (gnus-summary-select-article)
-  (gnus-with-article-buffer
-    (article-goto-body)
-    ;; Back up a char, in case body starts with a button.
-    (backward-char)
-    (gnus-collect-urls)))
-
 (defun gnus-shorten-url (url max)
   "Return an excerpt from URL not exceeding MAX characters."
   (if (<= (length url) max)
@@ -9468,38 +9456,37 @@ See 'gnus-collect-urls'."
                            (concat "#" target)))))
       (concat host (string-truncate-left rest (- max (length host)))))))
 
-(defun gnus-summary-browse-url (&optional _external)
+(defun gnus-summary-browse-url (&optional external)
   "Scan the current article body for links, and offer to browse them.
 
 Links are opened using `browse-url' unless a prefix argument is
-given: then `browse-url-secondary-browser-function' is used instead.
+given: Then `browse-url-secondary-browser-function' is used instead.
 
 If only one link is found, browse that directly, otherwise use
 completion to select a link.  The first link marked in the
 article text with `gnus-collect-urls-primary-text' is the
 default."
   (interactive "P" gnus-summary-mode)
-  (let* ((urls (gnus-collect-urls-from-article))
-         (target
-	  (cond ((= (length urls) 1)
-		 (car urls))
-		((> (length urls) 1)
-		 (completing-read
-		  (format-prompt "URL to browse"
-				 (gnus-shorten-url (car urls) 40))
-		  urls nil t nil nil (car urls))))))
-    (if target
-	(browse-url-button-open-url target) ; this handles the prefix arg
-      (message "No URLs found."))))
-
-(defun gnus-summary-browse-all-urls (&optional _external)
-  "Scan the current article body for links, and browse them.
-
-Links are opened using `browse-url' unless a prefix argument is
-given: then `browse-url-secondary-browser-function' is used instead."
-  (interactive "P" gnus-summary-mode)
-  (dolist (url (gnus-collect-urls-from-article))
-    (browse-url-button-open-url url))) ; this handles the prefix arg
+  (let (urls target)
+    (gnus-summary-select-article)
+    (gnus-with-article-buffer
+      (article-goto-body)
+      ;; Back up a char, in case body starts with a button.
+      (backward-char)
+      (setq urls (gnus-collect-urls))
+      (setq target
+	    (cond ((= (length urls) 1)
+		   (car urls))
+		  ((> (length urls) 1)
+		   (completing-read
+		    (format-prompt "URL to browse"
+				   (gnus-shorten-url (car urls) 40))
+		    urls nil t nil nil (car urls)))))
+      (if target
+	  (if external
+	      (funcall browse-url-secondary-browser-function target)
+	    (browse-url target))
+	(message "No URLs found.")))))
 
 (defun gnus-summary-isearch-article (&optional regexp-p)
   "Do incremental search forward on the current article.
-- 
2.39.5