125 |
(overview-file (gnus-cache-file-name |
(overview-file (gnus-cache-file-name |
126 |
(car gnus-cache-buffer) ".overview"))) |
(car gnus-cache-buffer) ".overview"))) |
127 |
;; write the overview only if it was modified |
;; write the overview only if it was modified |
128 |
(when (buffer-modified-p buffer) |
(when (and (buffer-live-p buffer) (buffer-modified-p buffer)) |
129 |
(save-excursion |
(with-current-buffer buffer |
|
(set-buffer buffer) |
|
130 |
(if (> (buffer-size) 0) |
(if (> (buffer-size) 0) |
131 |
;; Non-empty overview, write it to a file. |
;; Non-empty overview, write it to a file. |
132 |
(let ((coding-system-for-write |
(let ((coding-system-for-write |