;;; Time-stamp: <2002-02-07 11:30:34 jcgs>

;;; Dump rmail buffers contexts, and destroy them to keep the
;;; generalized buffer saver off them

(require 'savebuffer)

(defun save-rmail-buffers ()
  "Make a saver file for any buffers in rmail mode."
  (message "Saving rmail buffers...")
  (save-window-excursion
    (find-file (expand-file-name "rmail.el" emacs-save-restorers))
    (let ((saver (current-buffer)))
      (erase-buffer)
      (insert "(require 'rmail)\n")
      (save-window-excursion
	(mapcar '(lambda (buffer)
		   (if (eq (buffer-mode buffer) 'rmail-mode)
		       (insert
			(progn
			  (set-buffer buffer)
			  (prog1
			      (format "(rmail-input \"%s\") (rmail-show-message %d)\n"
				      buffer-file-name rmail-current-message)
			    (savebuffer-mark-buffer-for-no-save buffer)
			    (set-buffer saver))))))
		(buffer-list)))
    (basic-save-buffer))
    (kill-buffer (current-buffer))))

(save-rmail-buffers)

;;; end of savers1/rmail.el