;;; Time-stamp: <99/07/07 09:23:28 johnstu>

;;;; For now, just remove all vm-mode buffers

(require 'savebuffer)

(defun vm-buffers-prevent-save ()
  "Mark all vm-mode buffers not to be saved."
  (mapcar (lambda (buffer)
	    (if (or (eq (buffer-mode buffer) 'vm-mode)
		    (string= (buffer-name) ".bbdb"))
		(savebuffer-mark-buffer-for-no-save buffer)))
	  (buffer-list)))

(vm-buffers-prevent-save)

(defun save-message-dates ()
  "Make a saver file for any buffers in pcmail mode."
  (save-window-excursion
    (find-file (expand-file-name "msgdates.el" emacs-save-restorers))
    (erase-buffer)

    
    (insert "(setq message-date-counts '(\n")
    (mapcar '(lambda (date-count)
	       ;; (message "Got message at %s" date)
	       (insert " (\""
		       (car date-count)
		       "\" . "
		       (int-to-string (cdr date-count))
		       ")\n"))
	    message-date-counts)
    (insert "))\n")


    (if nil
	(progn
	  (insert "(setq john-message-dates '(\n")
	  (mapcar '(lambda (date)
		     (message "Got message at %s" date)
		     (insert " \"" date "\"\n"))
		  john-message-dates)
	  (insert "))\n")))
    (basic-save-buffer)
    (kill-buffer (current-buffer))))

(save-message-dates)

;;; end of savers1/.el