Re: Deleting mail in virtual group

[Eric Abrahamsen <eric@ericabrahamsen.net>]

Alexander Baier <alexander.baier@mailbox.org> writes:

> On 2014-10-04 14:48 Eric Abrahamsen wrote:
>>> I want to write my own command that finds the original group of the
>>> article in question and executes the move in that group. Is there a
>>> function that gets me the original group of an article in a virtual
>>> group?
>>
>> I'm pretty sure that nnvirtual-find-group-art will do what you want.
>> Feed it the article number of the article under point, along with
>> gnus-newsgroup-name in the virtual Summary buffer. See how it works!
>
> Thank you for your quick reply! These to functions do what I want and I
> get the correct original group and article. But now I am stuck and do
> not know how to get to the original group. This is what I tried:
>
> #+BEGIN_SRC emacs-lisp
> (defun my-nnvirtual-delete-article ()
>   (interactive)
>   (let ((original (nnvirtual-find-group-art
>                    gnus-newsgroup-name
>                    (gnus-summary-article-number))))
>     (with-current-buffer gnus-group-buffer
>       (gnus-group-goto-group (car original))
>       (gnus-summary-goto-article (cdr original)))))
> #+END_SRC

All `gnus-group-goto-group' does is move to the group's line in the
*Group* buffer. Try `gnus-group-read-group' instead. That -- or
something involving that -- ought to do what you want.

> The group and article number returned by nnvirtual-find-group-art are
> correct, I checked. But the with-current-buffer part does not seem to
> work, as gnus always displays the article from the nnvirtual group with
> the original number.
>
> How do I switch to the original group?
>
> TIA,