diff options
| author | Eric Abrahamsen <eric@ericabrahamsen.net> | 2021-01-03 15:57:34 -0800 |
|---|---|---|
| committer | Eric Abrahamsen <eric@ericabrahamsen.net> | 2021-01-03 15:57:34 -0800 |
| commit | 84e80376424b7da9731ac3a2d0223833544fb63b (patch) | |
| tree | 0879d28451cd11029ad7b40bee05b3105ecd3913 | |
| parent | 823de6b5aa3a532542c5b213e3a4056768ad40e9 (diff) | |
| download | emacs-84e80376424b7da9731ac3a2d0223833544fb63b.tar.gz | |
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.
| -rw-r--r-- | lisp/gnus/gnus-cache.el | 6 |
1 files changed, 1 insertions, 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 |