From: Michael Heerdegen <michael_heerdegen@web.de>
To: Lars Ingebrigtsen <larsi@gnus.org>
Cc: 31057@debbugs.gnu.org
Subject: bug#31057: 27.0.50; Gnus: Make configurable what to show when selecting a group
Date: Thu, 12 Apr 2018 14:26:12 +0200 [thread overview]
Message-ID: <874lkgvcez.fsf@web.de> (raw)
In-Reply-To: <87in8wslev.fsf@mouse.gnus.org> (Lars Ingebrigtsen's message of "Thu, 12 Apr 2018 13:40:08 +0200")
Lars Ingebrigtsen <larsi@gnus.org> writes:
> Well, you're not supposed to advice
> `gnus-alter-articles-to-read-function', but instead set it to a
> function that returns a new list of articles (based on the list that's
> passed in).
No, the doc clearly says
| [...] Use `add-function' to set one or more custom filter functions.
That's what I did:
#+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 (assoc 'mark v)
collect key)))
(funcall f group-name article-list))))
#+end_src
AFAIR Eric Abrahamsen and I decided that we want the thing to be
customizable like that, because it's then possible that different modes
can `add-function' stuff onto the variable to control things in
different ways.
> And as far as I can tell from reading the code, the list returned is
> the list of articles Gnus will fetch from the server
Yes.
> (And then display, depending on whether you have other filters in
> place).
Hmm, the additional articles (articles with attached custom marks in my
case) are not displayed for me. AFAICT I have no filters enabled at
all. When the registry marked articles are "old" they are just not
shown AFAICT.
Michael.
next prev parent reply other threads:[~2018-04-12 12:26 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
2018-04-04 10:55 bug#31057: 27.0.50; Gnus: Make configurable what to show when selecting a group Michael Heerdegen
2018-04-11 20:47 ` Lars Ingebrigtsen
2018-04-12 9:34 ` Michael Heerdegen
2018-04-12 11:40 ` Lars Ingebrigtsen
2018-04-12 12:26 ` Michael Heerdegen [this message]
2018-04-12 13:09 ` Lars Ingebrigtsen
2018-04-13 12:16 ` Michael Heerdegen
2018-04-13 12:33 ` Lars Ingebrigtsen
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=874lkgvcez.fsf@web.de \
--to=michael_heerdegen@web.de \
--cc=31057@debbugs.gnu.org \
--cc=larsi@gnus.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.