307 |
;; unsuccessful), so we use the cached headers exclusively. |
;; unsuccessful), so we use the cached headers exclusively. |
308 |
(set-buffer nntp-server-buffer) |
(set-buffer nntp-server-buffer) |
309 |
(erase-buffer) |
(erase-buffer) |
310 |
(let ((coding-system-for-read |
(let ((coding-system-for-read |
311 |
gnus-cache-overview-coding-system)) |
gnus-cache-overview-coding-system)) |
312 |
(insert-file-contents cache-file)) |
(insert-file-contents cache-file)) |
313 |
'nov) |
'nov) |
489 |
(save-excursion |
(save-excursion |
490 |
(set-buffer cache-buf) |
(set-buffer cache-buf) |
491 |
(erase-buffer) |
(erase-buffer) |
492 |
(let ((coding-system-for-read |
(let ((coding-system-for-read |
493 |
gnus-cache-overview-coding-system)) |
gnus-cache-overview-coding-system)) |
494 |
(insert-file-contents |
(insert-file-contents |
495 |
(or file (gnus-cache-file-name group ".overview")))) |
(or file (gnus-cache-file-name group ".overview")))) |
496 |
(goto-char (point-min)) |
(goto-char (point-min)) |
497 |
(insert "\n") |
(insert "\n") |
534 |
(save-excursion |
(save-excursion |
535 |
(set-buffer cache-buf) |
(set-buffer cache-buf) |
536 |
(erase-buffer) |
(erase-buffer) |
537 |
(let ((coding-system-for-read |
(let ((coding-system-for-read |
538 |
gnus-cache-coding-system)) |
gnus-cache-coding-system)) |
539 |
(insert-file-contents (gnus-cache-file-name group (car cached)))) |
(insert-file-contents (gnus-cache-file-name group (car cached)))) |
540 |
(goto-char (point-min)) |
(goto-char (point-min)) |