Re: nnvirtual groups and article warping

[Eric Abrahamsen <eric@ericabrahamsen.net>]

Eric S Fraga <e.fraga@ucl.ac.uk> writes:

> Hello all,
>
> I use virtual groups to collect emails from a number of groups (all
> nnml).  When reading the virtual group, there are times where I would
> like to jump to the originating group.  In groups that are the result of
> searches, I can do this with A W (gnus-warp-to-article).  Is the same
> functionality available with an nnvirtual group?  (I haven't been able
> to find it, if it exists.)

It doesn't exist, but it wouldn't be too hard to write.

Basically, nnvirtual would have to have a function called
`nnvirtual-warp-to-article', which did something like:

(let* ((gnus-override-method nil)
       (gnus-newsgroup-name
	(gnus-group-prefixed-name
	 (car (nnvirtual-map-article
	       (gnus-summary-article-number)))))
       (gnus-command-method
	(gnus-find-method-for-group gnus-newsgroup-name)))
  (when (gnus-check-backend-function
	 'warp-to-article (car gnus-command-method))
    (funcall (gnus-get-function gnus-command-method 'warp-to-article))))

The weird thing, poking into the code, is that no backends seem to
implement *-warp-to-article, except nnselect. Doesn't that seem weird?

So this function would instead have to do pretty much what
nnselect-warp-to-article does, namely:

(deffoo nnvirtual-warp-to-article ()
  (let* ((cur (if (> (gnus-summary-article-number) 0)
		  (gnus-summary-article-number)
		(error "Can't warp to a pseudo-article")))
	 (group-art (nnvirtual-map-article cur)))
    (gnus-summary-read-group-1 (car group-art) t t  nil
                               nil (list (cdr group-art)))))

Does that work?