Bastien <[email protected]> writes:
> Hi François,
>
> François Pinard <[email protected]> writes:
>
>> It took me about one hour (my Gnus programming
>> is rather rusty) for adding a Gnus command opening many tabs at once, in
>> a graphical browser, for all articles I retain in Gnus for reading.
>
> That looks nice, is your hack public somewhere?
Not exactly the above, but I have the following my-gnus-browse bound
to ; in gnus-summary-mode-map, which opens up a browser with the right
links for gwene, gmane and nnrss groups. I think the browse-nnrss-url
is untouched from the gnus manual.
(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
(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)
(defun rs-gnus-browse-archived-at ()
"Browse \"Archived-at\" URL of the current article."
(interactive)
(let (url)
(with-current-buffer gnus-original-article-buffer
(setq url (gnus-fetch-field "Archived-at")))
(if (not (stringp url))
(gnus-message 1 "No \"Archived-at\" header found.")
(setq url (gnus-replace-in-string url "^<\\|>$" ""))
(browse-url url))))
(defun my-gnus-browse (arg)
(interactive "p")
(cond ((string-match ":\\(gwene\\|gmane\\)\\." gnus-newsgroup-name)
(rs-gnus-browse-archived-at))
((string-match "^nnrss\." gnus-newsgroup-name)
(browse-nnrss-url arg))))
Regards,
--
Haider
