Re: Command for browsing article URLs?

[Eric Abrahamsen <eric@ericabrahamsen.net>]

Haider Rizvi <harizvi@gmail.com> writes:

> Eric Abrahamsen <eric@ericabrahamsen.net> writes:
>
>> I'd like to have a command, call it `gnus-article-browse-url', which
>> collects all the links/URLs in the article body, and then offers to
>> browse one of them (choosing with completion). Bound to "K l",
>> naturally.
>
> I use two functions along these lines but not exactly what you asked
> for.
>
> 1. ace-link-gnus: I've it bound to M-o for some historical reason. In
> typical ace-fashion, it highlights all urls in the article and you use
> a key to browse the url in your browser.
>
> 2. my-gnus-browse function: Based on the newsgroup name, it calls
> various functions to find parent url for this article from the article
> headers. For example, gwene/gmane add a Archived-at header to point to
> the original article. I had various mailing lists that I found it useful for. 
>
> Let me know if you want to see the latter. 

Okay, here's what I've got so far. It seems to work fine, except on
links in the article headers (eg the List-Subscribe header contains a
"mailto:" link). It's weird because if I click that link with the mouse,
or move point to it and hit "<RET>", it works fine. But if I
programmatically call `widget-button-press' (which is all "<RET>" is
doing), nothing happens.

Also, I have no idea what the difference between 'gnus-string and
'gnus-data text properties is: 'gnus-data in particular seems pretty
complicated.

Haider, is this something you've encountered (and maybe solved)?

Thanks,
Eric

#+begin_src elisp

(defun gnus-article-browse-url (arg)
  "Scan the current article body for links, and offer to browse them.
With prefix ARG, also collect links from message headers.

Links are opened via `widget-button-press'.  If only one link is found,
browse that directly, otherwise use completion to select a link."
  (interactive "P")
  (let ((opened (and (gnus-buffer-live-p gnus-article-buffer)
		     (get-buffer-window gnus-article-buffer t)))
	pt urls target)
    (unless (and opened
		 ;; We might have opened an article, but then moved to
		 ;; a different summary line.
		 (= gnus-current-article (gnus-summary-article-number)))
      (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))
      (setq pt (point))
      (while (progn (widget-forward 1)
		    (> (point) pt))
	(setq pt (point))
	(when-let ((u (or (get-text-property (point) 'gnus-string)
			  (get-text-property (point) 'gnus-data)
			  (get-text-property (point) 'shr-url))))
	  (push (cons u pt) urls)))
      (setq target
	    (assoc (cond ((= (length urls) 1)
			  (caar urls))
			 ((> (length urls) 1)
			  (completing-read "URL to browse: "
					   (delete-dups urls) nil t)))
		   urls))
      (if target
	  (widget-button-press (1+ (cdr target)))
	(message "No URLs found.")))
    (gnus-summary-expand-window opened)))

(with-eval-after-load "gnus-sum"
(define-key gnus-summary-mime-map (kbd "l") #'gnus-article-browse-url))
#+end_src