Re: Restricting frequency of 'g'

[John SJ Anderson <genehack@genehack.org>]

Russ Allbery <rra@stanford.edu> writes:

> Does anyone have a good recipe for having Gnus remember the last time I
> checked for new mail and to force me to jump through some hoop if it's
> been less than a configurable amount of time?  

  I had the same problem; so I came up with this and then retrained
  myself to hit 'F6' instead of 'g'.

(defvar jsja/last-mail-check (float-time)
  "last time i checked mail via magic key")
(defvar jsja/mail-check-interval (* 60 5)
  "how long i should wait before checking mail")
(defun jsja/switch-to-gnus ()
  "Bring Gnus *Group* buffer to front, starting Gnus if needed"
  (interactive)
  (if (or (not (fboundp 'gnus-alive-p))
          (not (gnus-alive-p)))
      (gnus)
    (switch-to-buffer "*Group*")
    (delete-other-windows)
    (setq next-mail-check (+ jsja/last-mail-check jsja/mail-check-interval))
    (if (< (float-time) next-mail-check)
        (message (concat 
                  "no gnus is good news ("  
                  (int-to-string (floor (- next-mail-check (float-time))))
                  " seconds until next check allowed)" ))
      (gnus-group-get-new-news 1)
      (setq jsja/last-mail-check (float-time)))))
(global-set-key (kbd "<f6>")  'jsja/switch-to-gnus)



john.
-- 
I WILL NOT DEMAND WHAT I'M WORTH
I WILL NOT DEMAND WHAT I'M WORTH
I WILL NOT DEMAND WHAT I'M WORTH
	Bart Simpson on chalkboard in episode 5F14