nnrss links

nnrss links

[Eythan Weg]

Hi,

Is it possible to make the subject in a summary
buffer a link to the url?  The subject text is
often sufficient to determine the interest in
reading the article pointed to by the link and in
this way one saves some keyboarding.

Thank you.  Eythan

Re: nnrss links

[Jochen Küpper]

weg-5BmGIU6vVXU6GL+IUqp+Xg@public.gmane.org (Eythan Weg) writes:

> Is it possible to make the subject in a summary buffer a link to the
> url? The subject text is often sufficient to determine the interest
> in reading the article pointed to by the link and in this way one
> saves some keyboarding.

From my .gnus, collected here on ding, I guess:
,----
| (defun jk/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
|         (progn
|           (browse-url (cdr url))
|           (gnus-summary-mark-as-read-forward 1))
|       (gnus-summary-scroll-up arg))))
| (add-to-list 'nnmail-extra-headers nnrss-url-field)
| (add-hook 'gnus-summary-mode-hook
|           (lambda ()
|             (if (string-match "nnrss" gnus-newsgroup-name)
|                 (define-key gnus-summary-mode-map (kbd "<RET>") 'jk/browse-nnrss-url))))
`----

Greetings,
Jochen
-- 
Einigkeit und Recht und Freiheit                http://www.Jochen-Kuepper.de
    Liberté, Égalité, Fraternité                GnuPG key: CC1B0B4D
        (Part 3 you find in my messages before fall 2003.)

Re: nnrss links

[Eythan Weg]

 From: Jochen Küpper <jochen@fhi-berlin.mpg.de>
 Date: Sat, 06 May 2006 13:38:33 +0200


>
> From my .gnus, collected here on ding, I guess:
> ,----
> | (defun jk/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
> |         (progn
> |           (browse-url (cdr url))
> |           (gnus-summary-mark-as-read-forward 1))
> |       (gnus-summary-scroll-up arg))))
> | (add-to-list 'nnmail-extra-headers nnrss-url-field)
> | (add-hook 'gnus-summary-mode-hook
> |           (lambda ()
> |             (if (string-match "nnrss" gnus-newsgroup-name)
> |                 (define-key gnus-summary-mode-map (kbd "<RET>") 'jk/browse-nnrss-url))))

Thank you.  works very well.  eythan.