Re: gnus and nnrss html

[Richard G Riley <rileyrgdev@gmail.com>]

Richard G Riley <rileyrgdev@gmail.com> writes:

> Richard G Riley <rileyrgdev@gmail.com> writes:
>
>> I have the following in my .gnus.el
>>
>> ,----
>> | ;; Set the default value of `mm-discouraged-alternatives'.
>> | (add-to-list
>> |     'gnus-newsgroup-variables
>> |     '(mm-discouraged-alternatives
>> |       . '("text/html" "image/.*")))
>> | 
>> | ;;Display `text/html' parts in `nnrss' groups.
>> | (add-to-list
>> |  'gnus-parameters
>> |  '("\\`nnrss:" (mm-discouraged-alternatives nil)))
>> `----
>>
>> The problem I have is that any links in the html are displayed as
>> "linkname" with the url hidden. I usually have a key bound to
>> (browse-url-firefox url &optional new-window) but this only works on
>> "visible" urls. How can I extract the underlying url in articles on nrss
>> folders which are being displayed as rendered html?
>
> The following code did what I wanted without upsetting the default
> "return" which uses w3m for me.
>
> (global-set-key (quote [f4]) (lambda()
> (interactive)(browse-url-firefox (w3m-url-valid (w3m-anchor)))))

And a slightly more robust one which prompts for a URL if there are w3m
ones under the cursor:

,----
| (global-set-key
|  (quote [f4])
|  (lambda()
|    (interactive)
|    (cond 
|     ((setq url (w3m-url-valid (w3m-anchor)))
|      (browse-url-firefox url)) 
|     (t (command-execute 'browse-url-firefox)))))
`----