Re: How to straighten up group unread numbers

[Steinar Bang <sb@dod.no>]

>>>>> Steinar Bang <sb@dod.no>:

> Note that just visiting each group will handle everything except the
> expired articles (permanently deleted IMAP articles, and reported spam
> in gmane), and would be a lot simpler.

> Perhaps that could be a first iteration?  The visiting of the
> interesting group logic, would be the same.

Here's some code that seems to do the trick.  An annoying side effect is
that it opens all topics containing groups that are to be visited.

I have to toggle topics off, to find the group names for a server, and
toggle it back on afterwords.  I guess I could do the same thing before
visiting the groups...?  A bit annoying that it doesn't seem to be
possible to specify that topics should be off or on.  Ie. that one have
to assume a state before toggling.

Any simpler approaches would be welcome here.

(defun sb-list-all-groups-of-a-server (server-regexp)
  (let ((server-groups ()))
    (set-buffer gnus-group-buffer)
    (gnus-topic-mode nil t)
    (goto-char (point-min))
    (while (re-search-forward server-regexp nil t)
      (let ((current-group (gnus-group-group-name)))
            (setq server-groups (append (list current-group) server-groups))))
    (gnus-topic-mode nil t)
    server-groups))

(defun sb-visit-group-to-update-read-count (group-name)
  (gnus-group-read-group nil t group-name)
  (gnus-summary-exit))

(defun sb-visit-all-groups-of-a-server (server-regexp)
  (let ((server-groups (sb-list-all-groups-of-a-server server-regexp)))
    (mapc 
     'sb-visit-group-to-update-read-count
     server-groups)))

(defun sb-visit-gmane ()
  (interactive)
  (sb-visit-all-groups-of-a-server "nntp\\+news\\.gmane\\.org:"))

(defun sb-visit-home ()
  (interactive)
  (sb-visit-all-groups-of-a-server "nnimap\\+home:"))