Automatically adding groups

[Cecil Westerhof]

In my .gnus I have:
    (setq gnus-message-archive-group
          '((if (message-news-p)
            "misc-news"
          (concat "INBOX.Verzonden." (format-time-string "%Y-%m")))))

And in *Group* I have:
  [ Verzonden -- 3 ]
         3: nnimap+e-mail:INBOX.Verzonden.2009-12 
         0: nnimap+e-mail:INBOX.Verzonden.2009-11 
         0: nnimap+e-mail:INBOX.Verzonden.2009-10 

When sending something in January I would like it to change it into
something like:
  [ Verzonden -- 3 ]
         3: nnimap+e-mail:INBOX.Verzonden.2010-01 
         0: nnimap+e-mail:INBOX.Verzonden.2009-12 
         0: nnimap+e-mail:INBOX.Verzonden.2009-11 
         0: nnimap+e-mail:INBOX.Verzonden.2009-10 

Is this possible? Now I have to add it every month. Not a lot of work,
but as a programmer I do not like to do things that can be done by the
computer. ;-)

-- 
Cecil Westerhof
Senior Software Engineer
LinkedIn: http://www.linkedin.com/in/cecilwesterhof