(gnus-cache-save-buffers): Check if buffer is

alive.  Reported by Laurent Martelli <laurent@aopsys.com>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2ef6c9b..5c66cde 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-04-06  Jesper Harder  <harder@ifa.au.dk>
+
+       * gnus-cache.el (gnus-cache-save-buffers): Check if buffer is
+       alive.  Reported by Laurent Martelli <laurent@aopsys.com>.
+
 2004-04-03  Jesper Harder  <harder@ifa.au.dk>
 
        * gnus.el (gnus-getenv-nntpserver): Strip whitespace.

diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el
index 5f2195f..8fe46da 100644 (file)
--- a/lisp/gnus-cache.el
+++ b/lisp/gnus-cache.el
@@ -125,9 +125,8 @@ it's not cached."
          (overview-file (gnus-cache-file-name
                          (car gnus-cache-buffer) ".overview")))
       ;; write the overview only if it was modified
-      (when (buffer-modified-p buffer)
-       (save-excursion
-         (set-buffer buffer)
+      (when (and (buffer-live-p buffer) (buffer-modified-p buffer))
+       (with-current-buffer buffer
          (if (> (buffer-size) 0)
              ;; Non-empty overview, write it to a file.
              (let ((coding-system-for-write