emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

girzel/gnus-headers 84e8037 1/2: Remove writing of headers into Gnus' ca


From: Eric Abrahamsen
Subject: girzel/gnus-headers 84e8037 1/2: Remove writing of headers into Gnus' cache files
Date: Sat, 16 Jan 2021 21:40:34 -0500 (EST)

branch: girzel/gnus-headers
commit 84e80376424b7da9731ac3a2d0223833544fb63b
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    Remove writing of headers into Gnus' cache files
    
    * lisp/gnus/gnus-cache.el (gnus-cache-retrieve-headers): This function
    should not be responsible for caching new headers, only returning
    existing ones.
---
 lisp/gnus/gnus-cache.el | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/lisp/gnus/gnus-cache.el b/lisp/gnus/gnus-cache.el
index d46eb39..9423d9f 100644
--- a/lisp/gnus/gnus-cache.el
+++ b/lisp/gnus/gnus-cache.el
@@ -312,11 +312,7 @@ it's not cached."
          (when uncached-articles
            (setq headers (and articles
                               (gnus-fetch-headers uncached-articles)))))
-       (when (and headers gnus-cache-buffer)
-         (with-current-buffer (cdr gnus-cache-buffer)
-           (goto-char (point-min))
-           (mapc #'nnheader-insert-nov headers)
-           (gnus-cache-save-buffers)))
+       (gnus-cache-save-buffers)
        ;; Then we include the cached headers.
        (when (file-exists-p cache-file)
          (setq headers



reply via email to

[Prev in Thread] Current Thread [Next in Thread]