diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-10-09 06:26:17 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-10-09 06:26:17 +0200 |
| commit | e2ece082732323738e56046a7bd667e5f9126ced (patch) | |
| tree | f27fa899ddb46d726c72235b20805a879fbe0226 /lisp/gnus/gnus-async.el | |
| parent | f3dbde7e6ffabfef7526b04bf2e633250970672d (diff) | |
| download | emacs-e2ece082732323738e56046a7bd667e5f9126ced.tar.gz | |
Revert "Don't eagerly store articles in the Agent by default"
This reverts commit def34a20766ea5179afd5e5ed090a2b86fcccb5e.
This made storing articles in the Agent very slow.
Diffstat (limited to 'lisp/gnus/gnus-async.el')
| -rw-r--r-- | lisp/gnus/gnus-async.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/gnus/gnus-async.el b/lisp/gnus/gnus-async.el index 9bcb6c33a64..e3e81c8bbce 100644 --- a/lisp/gnus/gnus-async.el +++ b/lisp/gnus/gnus-async.el @@ -225,6 +225,12 @@ that was fetched." (save-excursion (save-restriction (narrow-to-region mark (point-max)) + ;; Put the articles into the agent, if they aren't already. + (when (and gnus-agent + (gnus-agent-group-covered-p group)) + (save-restriction + (narrow-to-region mark (point-max)) + (gnus-agent-store-article article group))) ;; Prefetch images for the groups that want that. (when (fboundp 'gnus-html-prefetch-images) (gnus-html-prefetch-images summary)) |