Getting the URL from a nnrss-Message

Getting the URL from a nnrss-Message

[Christoph Conrad]

Hi,

i am using nnrss with the latest Oort Gnus and GNU Emacs 21.0.103.

My configuration:

,----
| (require 'nnrss)
| 
| (defun gnus-user-format-function-X (header)
|   (let ((descr (assq nnrss-description-field
|                      (mail-header-extra header))))
|     (if descr (cdr descr) "")))
| 
| (add-to-list 'nnmail-extra-headers nnrss-description-field)
`----

For Freshmeat i have made an entry in the group parameters (G p in
 Group buffer)

,----
| ((gnus-summary-line-format "%U %-20,20s - %uX\n"))
`----

so that i see the subject with the description line. I want to achieve
that when i press <RET> in the summary buffer the webbrowser jumps to
the url within the message under the cursor.

How to get the url out of the nnrss-Message?

i. A.
Best regards,
Christoph Conrad
-- 
TTi Entwicklungszentrum GmbH,  Elisabethstr. 16, D-52062 Aachen
Fon: +49 241 47051-0  Fax: +49 241 47051-89 Web: http://www.cli.de
Look Ma, this man can twist his fingers as if they were made of rubber,
isn't that amazing? -- Not really, he's been using emacs for years...!

Re: Getting the URL from a nnrss-Message

[ShengHuo ZHU]

Christoph Conrad <C.Conrad@cli.de> writes:

> Hi,
> 
> i am using nnrss with the latest Oort Gnus and GNU Emacs 21.0.103.
> 
> My configuration:
> 
> ,----
>| (require 'nnrss)
>| 
>| (defun gnus-user-format-function-X (header)
>|   (let ((descr (assq nnrss-description-field
>|                      (mail-header-extra header))))
>|     (if descr (cdr descr) "")))
>| 
>| (add-to-list 'nnmail-extra-headers nnrss-description-field)
> `----
> 
> For Freshmeat i have made an entry in the group parameters (G p in
>  Group buffer)
> 
> ,----
>| ((gnus-summary-line-format "%U %-20,20s - %uX\n"))
> `----
> 
> so that i see the subject with the description line. I want to achieve
> that when i press <RET> in the summary buffer the webbrowser jumps to
> the url within the message under the cursor.
> 
> How to get the url out of the nnrss-Message?

I've added nnrss-url-field for the url.

ShengHuo

Re: Getting the URL from a nnrss-Message

[Christoph Conrad]

Hello ShengHuo,

you wrote:

    ZSH> I've added nnrss-url-field for the url.

For those who want to use it for opening an nnrss url directly from
the summary buffer i supply some code here. Is there a better way to
define the key locally to the group? Maybe with group parameters?

======================================================================
CUT HERE - CUT HERE - CUT HERE - CUT HERE - CUT HERE - CUT HERE - CUT
======================================================================
(require 'browse-url)

(defun browse-nnrss-url( arg )
  (interactive "p")
  (let ((url (assq nnrss-url-field
                   (mail-header-extra
                    (gnus-data-header
                     (assq (gnus-summary-article-number)
                           gnus-newsgroup-data))))))
    (if url
        (browse-url (cdr url))
      (gnus-summary-scroll-up arg))))

(eval-after-load "gnus"
  #'(define-key gnus-summary-mode-map
      (kbd "<RET>") 'browse-nnrss-url))

(add-to-list 'nnmail-extra-headers nnrss-url-field)
======================================================================
CUT HERE - CUT HERE - CUT HERE - CUT HERE - CUT HERE - CUT HERE - CUT
======================================================================

Best regards,
Christoph Conrad
-- 
TTi Entwicklungszentrum GmbH,  Elisabethstr. 16, D-52062 Aachen
Fon: +49 241 47051-0  Fax: +49 241 47051-89 Web: http://www.cli.de
Look Ma, this man can twist his fingers as if they were made of rubber,
isn't that amazing? -- Not really, he's been using emacs for years...!

Re: Getting the URL from a nnrss-Message

[ShengHuo ZHU]

Christoph Conrad <cc@cli.de> writes:

> Hello ShengHuo,
> 
> you wrote:
> 
>    ZSH> I've added nnrss-url-field for the url.
> 
> For those who want to use it for opening an nnrss url directly from
> the summary buffer i supply some code here. Is there a better way to
> define the key locally to the group? Maybe with group parameters?

Thanks. I've added it into the info file.

ShengHuo

Re: Getting the URL from a nnrss-Message

[Christoph Conrad]

Hello ShengHuo,

    > Thanks. I've added it into the info file.

Fine! The last line (which is required!?) got lost:

(add-to-list 'nnmail-extra-headers nnrss-url-field)

Best regards,
cu, -cc-
-- 
=> GNU Emacs Webring @ <http://www.gnusoftware.com/WebRing/> <=
Look Ma, this man can twist his fingers as if they were made of rubber,
isn't that amazing? -- Not really, he's been using emacs for years...!

Re: Getting the URL from a nnrss-Message

[ShengHuo ZHU]

Christoph Conrad <christoph.conrad@gmx.de> writes:

> Hello ShengHuo,
> 
>    > Thanks. I've added it into the info file.
> 
> Fine! The last line (which is required!?) got lost:
> 
> (add-to-list 'nnmail-extra-headers nnrss-url-field)

Added.

ShengHuo