🚀 go-pugleaf

I use 'timer' rather that 'itimer', and have found that the following
changes to two functions are benign, and save (potentially a lot of)
resources. The rest of the functions are identical to the ones in
vm-7.17 and vm-7.18.

Rgds, Jon


(defun vm-check-mail-itimer-function (&optional timer)
  ;; FSF Emacs sets this non-nil, which means the user can't
  ;; interrupt the check.  Bogus.
  (setq inhibit-quit nil)
  (if (integerp vm-mail-check-interval)
      (if timer
	  ;; This is definitely unnecessary.
	  ;; Just sets extra timers. JS 2002-11-06
	  ;; (progn
	  ;;  (timer-set-time timer (timer-relative-time (current-time)
	  ;;					     vm-mail-check-interval)
	  ;;		  vm-mail-check-interval)) 
	  nil 
	(set-itimer-restart current-itimer vm-mail-check-interval))
    ;; user has changed the variable value to something that
    ;; isn't a number, make the timer go away.


(defun vm-get-mail-itimer-function (&optional timer)
  ;; FSF Emacs sets this non-nil, which means the user can't
  ;; interrupt mail retrieval.  Bogus.
  (setq inhibit-quit nil)
  (setq saved-timer timer)
  (if (integerp vm-auto-get-new-mail)
      (if timer
	  ;; Nothing needed here, the repeat is already on.
	  ;; This code just creates a lot of superfluous timers.
	  ;; The original was worse...
	  ;; (timer-set-time timer
	  ;;		  (timer-relative-time (current-time)
	  ;;				       vm-auto-get-new-mail)
	  ;;		  vm-auto-get-new-mail)
	  nil
	(set-itimer-restart current-itimer vm-auto-get-new-mail))
    ;; user has changed the variable value to something that
    ;; isn't a number, make the timer go away.