Re: gnus-group-change-level

[James Cloos <cloos@jhcloos.com>]

>>>>> "EA" == Eric Abrahamsen <eric@ericabrahamsen.net> writes:

EA> (let ((level 55))
EA>   (dolist (grp very-long-list-of-group-names)
EA>     (when-let ((entry (gnus-group-entry grp)))
EA>       (setcar (cdadr entry) level))))

Ah.  Cool.  As a first step I tried out:

 (cdadr (gnus-group-entry "nnimap+oxygen:ding@gnus.org"))

since ding was at point and thus easy to copy-n-yank.

It errored out that (listp 0) return nil.

Some experimentation showed that:

 (cadadr (gnus-group-entry "nnimap+oxygen:ding@gnus.org"))

returned the cons (11 . 15), where 11 is the current level.
(I'm not sure what that cons' cdr is.)

I see aroung 7% of the groups' lines in .newsrc.eld have just an integer
at that point for level, whereas the others have such a cons.

Eg this returns just the integer 11:

 (cadadr (gnus-group-entry "nnimap+oxygen:GitHub-Torvalds"))

I take it setcar will not do the right thing in such cases, yes?
And something like a cl-typecase would be required?

Is cadadr setf-able in emacs?

Thanks for the help!

P.S.  setting (nnimap-expunge never) or (nnimap-expunge 'never)
      in an entry in gnus-secondary-select-methods doesn't seem
      to do anything.  dovecot removes the files everytime gnus
      quits the *Summary* buffer.  I want to set \Delete but not
      to expunge...

-JimC
-- 
James Cloos <cloos@jhcloos.com>
            OpenPGP: https://jhcloos.com/0x997A9F17ED7DAEA6.asc