Re: Restricting frequency of 'g'

[Russ Allbery <rra@stanford.edu>]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:
> Dan Nicolaescu <dann@gnu.org> writes:

>> Any reason not to install this patch?

> The functionality doesn't seem all that compelling...  Would many people
> use it?

I absolutely swear by my implementation, although I wouldn't use the one
that you're responding to.  It's a really valuable tool in helping me
avoid the temptation to spend all day checking my mail.

;; Use this function instead of gnus-group-get-new-news as the action for g.
;; It changes the level of subscribedness that it checks based on how long
;; it's been since the previous check and tries to throttle checking mail too
;; often.
(defvar rra-last-mail-important-check (float-time)
  "The last time I checked mail in important groups.")
(defvar rra-last-mail-normal-check (float-time)
  "The last time I checked mail in normal groups.")
(defvar rra-last-mail-low-check (float-time)
  "The last time I checked mail in low-priority groups.")
(defvar rra-mail-important-check-interval (* 60 15)
  "How long I'm required to wait before checking mail in important groups.")
(defvar rra-mail-normal-check-interval (* 60 30)
  "How long I'm required to wait before checking mail in normal groups.")
(defvar rra-mail-low-check-interval (* 60 60)
  "How long I'm required to wait before checking mail in low-priority groups.")
(defun rra-timed-gnus-group-get-new-news ()
  "Get newly arrived articles based on the interval since the last time I've
checked for new articles."
  (interactive)
  (cond
   ((> (float-time) (+ rra-last-mail-low-check rra-mail-low-check-interval))
    (gnus-group-get-new-news)
    (setq rra-last-mail-low-check (float-time))
    (setq rra-last-mail-normal-check (float-time))
    (setq rra-last-mail-important-check (float-time)))
   ((> (float-time) (+ rra-last-mail-normal-check
                       rra-mail-normal-check-interval))
    (gnus-group-get-new-news 3)
    (setq rra-last-mail-normal-check (float-time))
    (setq rra-last-mail-important-check (float-time)))
   ((> (float-time) (+ rra-last-mail-important-check
                       rra-mail-important-check-interval))
    (gnus-group-get-new-news 1)
    (setq rra-last-mail-important-check (float-time)))
   (t
    (let ((next-check (+ rra-last-mail-important-check
                         rra-mail-important-check-interval)))
      (message (concat "No gnus is good news ("
                       (int-to-string (floor (- next-check (float-time))))
                       " seconds until check allowed)"))))))

-- 
Russ Allbery (rra@stanford.edu)             <http://www.eyrie.org/~eagle/>