;;; Time-stamp: <2006-12-07 19:56:24 jcgs>

(require 'savebuffer)

(defun save-view-buffers ()
  (find-file (expand-file-name "view-buffers.el" emacs-save-restorers))
  (let ((saver (current-buffer)))
    (erase-buffer)
    (save-state-insert-header)
    (insert ";; buffers being viewed\n")
    (dolist (buffer (buffer-list))
      (set-buffer buffer)
      (when (and view-mode
		 (buffer-file-name buffer)
		 (not (eq buffer saver)))
	(message "Marking %S as being viewed" buffer)
	(set-buffer saver)
	(save-one-buffer-configuration buffer)
	(savebuffer-mark-buffer-for-no-save buffer)
	(insert "(progn (find-file \""
		(unsubstitute-in-file-name (buffer-file-name buffer))
		"\") (view-buffer (current-buffer)))\n")))
    (set-buffer saver)
    (message "Saving view saver buffer")
    (basic-save-buffer)
    (kill-buffer saver)))

(save-view-buffers)