;;; Time-stamp: <95/05/03 09:05:59 john>

(defun save-mail-buffers ()
  "Make a saver file for any mail composition buffers."
  (message "Saving mail composition buffers...")
  (save-window-excursion
    (find-file (expand-file-name "cmail.el" emacs-save-restorers))
    (let ((saver (current-buffer)))
      (erase-buffer)
      (mapcar '(lambda (buffer)
		 (if (eq (buffer-mode buffer) 'mail-mode)
		     (progn
		       (set-buffer buffer)
		       (setq buffer-file-name
			     (expand-file-name buffer-name "~/.deadletters"))
		       (set-buffer saver))))
	      (buffer-list))
      (basic-save-buffer)
      (kill-buffer (current-buffer)))))

;; not really ready yet
;; (save-mail-buffers)

;;; end of savers1/mail.el