# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1228866191 0
# Node ID 62b6bd1722a50113278b41041856edfdd8107a79
# Parent  cdbab14860b4772cdd95f095ed760c1b60b056de
(save-some-buffers): At each map-y-or-n-p iteration,
check whether the buffer is still alive.

diff -r cdbab14860b4 -r 62b6bd1722a5 lisp/files.el
--- a/lisp/files.el	Tue Dec 09 23:43:03 2008 +0000
+++ b/lisp/files.el	Tue Dec 09 23:43:11 2008 +0000
@@ -4351,7 +4351,10 @@
       (setq files-done
 	    (map-y-or-n-p
              (lambda (buffer)
-               (and (buffer-modified-p buffer)
+	       ;; Note that killing some buffers may kill others via
+	       ;; hooks (e.g. Rmail and its viewing buffer).
+	       (and (buffer-live-p buffer)
+		    (buffer-modified-p buffer)
                     (not (buffer-base-buffer buffer))
                     (or
                      (buffer-file-name buffer)