mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-30 19:53:09 +00:00
Code Issues Releases Activity

Make `C-u w' in the Gnus Summary buffer open externally

Browse Source 
* doc/misc/gnus.texi (Article Commands): Document new behaviour.

* lisp/gnus/gnus-sum.el (gnus-shorten-url): New function.
(gnus-summary-browse-url): Change function to make `C-u' use the
external browser (as Gnus does when you hit URLs manually).  Don't
use an initial input.
This commit is contained in:
Lars Ingebrigtsen 2019-07-25 20:11:33 +02:00
parent bb2115fd55
commit 7f0b69e8ed
2 changed files with 34 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
doc/misc/gnus.texi
View File

@ -10163,8 +10163,8 @@ do so.
@cindex url
@findex gnus-summary-browse-url
Scan the article buffer for links, and offer them to the user for
browsing with @code{browse-url}. By default, only scan the article
body; with a prefix arg, also scan the article headers.
browsing with @code{browse-url}. With a prefix argument, browse with
@code{shr-external-browser} instead.
@end table

46
lisp/gnus/gnus-sum.el
View File

@ -67,6 +67,8 @@
(require 'gnus-util)
(require 'gmm-utils)
(require 'mm-decode)
(require 'shr)
(require 'url)
(require 'nnoo)
(eval-when-compile
(require 'subr-x))
@ -9461,32 +9463,48 @@ The 1st element is the widget named by `gnus-collect-urls-primary-text'."
(push primary urls))
(delete-dups urls)))
(defun gnus-summary-browse-url (arg)
"Scan the current article body for links, and offer to browse them.
With prefix ARG, also collect links from message headers.
(defun gnus-shorten-url (url max)
"Return an excerpt from URL."
(if (<= (length url) max)
url
(let ((parsed (url-generic-parse-url url)))
(concat (url-host parsed)
"..."
(substring (url-filename parsed)
(- (length (url-filename parsed))
(max (- max (length (url-host parsed))) 0)))))))
Links are opened using `browse-url'. 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."
(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 `shr-external-browser' 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")
(let (urls target)
(gnus-summary-select-article)
(gnus-configure-windows 'article)
(gnus-with-article-buffer
(if arg
(goto-char (point-min))
(article-goto-body)
;; Back up a char, in case body starts with a widget.
(backward-char))
(article-goto-body)
;; Back up a char, in case body starts with a widget.
(backward-char)
(setq urls (gnus-collect-urls))
(setq target
(cond ((= (length urls) 1)
(car urls))
((> (length urls) 1)
(completing-read "URL to browse: " urls nil t (car urls)))))
(completing-read (format "URL to browse (default %s): "
(gnus-shorten-url (car urls) 40))
urls nil t nil nil
(car urls)))))
(if target
(browse-url target)
(if external
(funcall shr-external-browser target)
(browse-url target))
(message "No URLs found.")))))
(defun gnus-summary-isearch-article (&optional regexp-p)