From 95fcaadb9baa73177e8a17699b0a0d1e92e6c306 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 6 Apr 2004 15:04:06 +0000 Subject: [PATCH] Synch to No Gnus 200404061321. --- lisp/ChangeLog | 5 +++++ lisp/gnus-cache.el | 5 ++--- 2 files changed, 7 insertions(+), 3 deletions(-) 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 + + * gnus-cache.el (gnus-cache-save-buffers): Check if buffer is + alive. Reported by Laurent Martelli . + 2004-04-03 Jesper Harder * 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 -- 1.7.10.4