From 84e80376424b7da9731ac3a2d0223833544fb63b Mon Sep 17 00:00:00 2001 From: Eric Abrahamsen Date: Sun, 3 Jan 2021 15:57:34 -0800 Subject: [PATCH] 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 d46eb39ace3..9423d9f2f6b 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 -- 2.39.5