From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Sun, 3 Jan 2021 23:57:34 +0000 (-0800)
Subject: Remove writing of headers into Gnus' cache files
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=84e80376424b7da9731ac3a2d0223833544fb63b;p=emacs.git

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.
---

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