gnus-group-save-newsrc on group exit

gnus-group-save-newsrc on group exit

[Ted Zlatanov]

I'd like to run gnus-group-save-newsrc every time I exit a group, but this:

(add-hook 'gnus-exit-group-hook 'gnus-group-save-newsrc)

doesn't seem to do it (probably gnus-group-save-newsrc needs to be
invoked from outside the group).  Any suggestions?

Ted

Re: gnus-group-save-newsrc on group exit

[Reiner Steib]

On Wed, Jan 22 2003, Ted Zlatanov wrote:

> I'd like to run gnus-group-save-newsrc every time I exit a group,
> but this:
>
> (add-hook 'gnus-exit-group-hook 'gnus-group-save-newsrc)
>
> doesn't seem to do it (probably gnus-group-save-newsrc needs to be
> invoked from outside the group).  Any suggestions?

In the summary buffer, there is `C-u Z s'.  So the following may work:

(add-hook 'gnus-exit-group-hook
	  (lambda () (gnus-summary-save-newsrc t)))

Hmm, after exiting a group the saving is done, but the *Group* buffer
is still marked as modified.

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo--- PGP key available via WWW   http://rsteib.home.pages.de/

Re: gnus-group-save-newsrc on group exit

[Ted Zlatanov]

On Wed, 22 Jan 2003, 4uce.02.r.steib@gmx.net wrote:
> In the summary buffer, there is `C-u Z s'.  So the following may
> work:
> 
> (add-hook 'gnus-exit-group-hook
> 	  (lambda () (gnus-summary-save-newsrc t)))
> 
> Hmm, after exiting a group the saving is done, but the *Group*
> buffer is still marked as modified.

Right, that doesn't seem to work, unfortunately.

Ted

Re: gnus-group-save-newsrc on group exit

[Lars Magne Ingebrigtsen]

Ted Zlatanov <tzz@lifelogs.com> writes:

> (add-hook 'gnus-exit-group-hook 'gnus-group-save-newsrc)
>
> doesn't seem to do it (probably gnus-group-save-newsrc needs to be
> invoked from outside the group).  Any suggestions?

You could just do something like

(lambda ()
  (save-excursion
    (set-buffer gnus-group-buffer)
    (gnus-group-save-newsrc)))

Or something.    

-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen

Re: gnus-group-save-newsrc on group exit

[Ted Zlatanov]

On Fri, 24 Jan 2003, larsi@gnus.org wrote:
> Ted Zlatanov <tzz@lifelogs.com> writes:
> 
>> (add-hook 'gnus-exit-group-hook 'gnus-group-save-newsrc)
>>
>> doesn't seem to do it (probably gnus-group-save-newsrc needs to be
>> invoked from outside the group).  Any suggestions?
> 
> You could just do something like
> 
> (lambda ()
>   (save-excursion
>     (set-buffer gnus-group-buffer)
>     (gnus-group-save-newsrc)))

I tried variations of this, but nothing worked.  I still need to hit
's' every time I go back to the group buffer.

Ted

Re: gnus-group-save-newsrc on group exit

[Ted Zlatanov]

On Mon, 27 Jan 2003, tzz@lifelogs.com wrote:
> On Fri, 24 Jan 2003, larsi@gnus.org wrote:
>> Ted Zlatanov <tzz@lifelogs.com> writes:
>> 
>>> (add-hook 'gnus-exit-group-hook 'gnus-group-save-newsrc)
>>>
>>> doesn't seem to do it (probably gnus-group-save-newsrc needs to be
>>> invoked from outside the group).  Any suggestions?
>> 
>> You could just do something like
>> 
>> (lambda ()
>>   (save-excursion
>>     (set-buffer gnus-group-buffer)
>>     (gnus-group-save-newsrc)))
> 
> I tried variations of this, but nothing worked.  I still need to hit
> 's' every time I go back to the group buffer.

Here's the exact code and output:

(defun tzz-save-newsrc ()
  (save-excursion
    (set-buffer gnus-group-buffer)
    (gnus-group-save-newsrc))
  (message "Saved newsrc tzz"))

(add-hook 'gnus-exit-group-hook 'tzz-save-newsrc)

Output:

Exiting summary buffer and applying spam rules
Saving /home/tzz/.newsrc...
Wrote /home/tzz/.newsrc
Saving /home/tzz/.newsrc...done
Saving /home/tzz/.newsrc.eld...
Adding whitespace to .newsrc.eld
Wrote /home/tzz/.newsrc.eld
Saving /home/tzz/.newsrc.eld...done
Saved newsrc tzz
(No changes need to be saved)

Thanks
Ted

Re: gnus-group-save-newsrc on group exit

[Lars Magne Ingebrigtsen]

Ted Zlatanov <tzz@lifelogs.com> writes:

> I tried variations of this, but nothing worked.  I still need to hit
> 's' every time I go back to the group buffer.

Try using `gnus-summary-exit-hook' instead -- it's called later than
the other hook.

-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen

Re: gnus-group-save-newsrc on group exit

[Ted Zlatanov]

On Tue, 28 Jan 2003, larsi@gnus.org wrote:
> Try using `gnus-summary-exit-hook' instead -- it's called later than
> the other hook.

Perfect, that works great.

Thanks
Ted