;;; -*- Mode:LISP; Package:USER; Base:10 -*- 

(defun set-all-quanta (amt)
  (setq si::default-quantum amt)
  (mapc #'(lambda (proc)
	    (send proc :set-quantum amt))
	si::all-processes))

(set-all-quanta 6.)

(defun set-process-priority (process-name value)
  (setq process-name (string process-name))
  (check-type value fixnum)
  (mapc #'(lambda (proc)
	    (let ((name (send proc :name)))
	      (if (and (stringp name)
		       (string-equal name process-name))
		  (progn (send proc :set-priority value)
			 (return-from set-process-priority value)))))
	si::all-processes)
  ())

(defun set-zmail-bkgnd-priority (&optional (pty 0))
  (setq zwei::*ZMAIL-DEFAULT-BACKGROUND-PRIROITY* 0)
  (set-process-priority "Zmail Background" pty))

(set-zmail-bkgnd-priority)