Re: Fixed bug with custom marks in registry

[Michael Heerdegen <michael_heerdegen@web.de>]

Eric Abrahamsen <eric@ericabrahamsen.net> writes:

> Obviously not too many people were using this feature, or else we would
> have heard about it sooner, but there was a bug in the Gnus registry
> where entries with custom marks attached to them could still be pruned
> (deleted), even though they're not supposed to be.
>
> That's fixed now, and the fix will go into Emacs 26.2 and 27, so if
> you'd run into this before and decided not to use custom marks in the
> registry, watch for updates.

I've a question about the setup.  I want Gnus to always auto-show all
registry-marked articles in the summary (maybe we should have an option
for that?).  From the docs I derived that something like this would do:

#+begin_src emacs-lisp
(add-function
 :around gnus-alter-articles-to-read-function
 (defun my-gnus-auto-show-registry-marked (f group-name article-list)
   (cl-union
    (delq nil
          (mapcar (lambda (id) (cdr (gnus-request-head id group-name)))
                  (cl-loop for key being the hash-keys of (oref gnus-registry-db data)
                           using (hash-values v)
                           when (cdr (assoc 'mark v))
                           collect key)))
    (funcall f group-name article-list))))
#+end_src

That works but has the side effect that when I add or remove a registry
mark - e.g. simply M M i or M M I, after that the article line in the
summary is duplicated - one line has the mark, the other doesn't.  Apart
from that, the lines are identical.  When I restart Gnus, I get one
article line again as expected.

Any hints how to do it better? (FWIW, I do not remember that this
happened to me in the past, but I'm not sure)


Thanks,

Michael.