From: yamaoka <yamaoka>
Date: Tue, 6 Apr 2004 15:04:06 +0000 (+0000)
Subject: Synch to No Gnus 200404061321.
X-Git-Tag: t-gnus-6_17_4-quimby-~987
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=95fcaadb9baa73177e8a17699b0a0d1e92e6c306;p=elisp%2Fgnus.git-

Synch to No Gnus 200404061321.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2ef6c9b..5c66cde 100644
--- 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 c4b27ee..c24fd93 100644
--- a/lisp/gnus-cache.el
+++ b/lisp/gnus-cache.el
@@ -128,9 +128,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.
 	      (gnus-write-buffer-as-coding-system