Don't eagerly store articles in the Agent by default

* lisp/gnus/gnus-agent.el (gnus-agent-store-article): Made
obsolete.

* lisp/gnus/gnus-art.el (gnus-request-article-this-buffer): Don't
call it.

* lisp/gnus/gnus-async.el (gnus-async-article-callback): Ditto
(bug#43356).

This partially reverts f3b146e943cd733fb716c75048f24b73826e5f30, which
in was response to what appears to be an erroneous feature-request -
bug#8502.

Instead this should be done instead:

“If I read an article while plugged, do they get entered into the
Agent?”

     *No*. If you want this behavior, add
     ‘gnus-agent-fetch-selected-article’ to
     ‘gnus-select-article-hook’.

diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el
index 03e447e072ac2d05c2c30ac37ff37dced34678ec..d7388d480c34a1f4a0e6b32c466b6e8b154bf2db 100644 (file)
--- a/lisp/gnus/gnus-agent.el
+++ b/lisp/gnus/gnus-agent.el
@@ -3812,6 +3812,7 @@ has been fetched."
         t))))
 
 (defun gnus-agent-store-article (article group)
+  (declare (obsolete nil "28.1"))
   (let* ((gnus-command-method (gnus-find-method-for-group group))
         (file (gnus-agent-article-name (number-to-string article) group))
         (file-name-coding-system nnmail-pathname-coding-system)

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index e0339cc1f32ce1c65bdc4dae132f185c920ec41f..13a85379970719f2c2e296e4b5466dd109fcd935 100644 (file)
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -7084,10 +7084,7 @@ If given a prefix, show the hidden text instead."
                                              gnus-summary-buffer)
                    (when gnus-keep-backlog
                      (gnus-backlog-enter-article
-                      group article (current-buffer)))
-                   (when (and gnus-agent
-                              (gnus-agent-group-covered-p group))
-                     (gnus-agent-store-article article group)))
+                      group article (current-buffer))))
                  (setq result 'article))
                 (methods
                  (setq gnus-override-method (pop methods)))

diff --git a/lisp/gnus/gnus-async.el b/lisp/gnus/gnus-async.el
index e3e81c8bbced94238ef6f7ec47cd4002956554b0..9bcb6c33a64022c0da14118e91ed752ebcb6cb75 100644 (file)
--- a/lisp/gnus/gnus-async.el
+++ b/lisp/gnus/gnus-async.el
@@ -225,12 +225,6 @@ 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))