Function: gnus-cache-possibly-update-active

gnus-cache-possibly-update-active is a byte-compiled function defined in gnus-cache.el.gz.

Signature

(gnus-cache-possibly-update-active GROUP ACTIVE)

Documentation

Update active info bounds of GROUP with ACTIVE if necessary.

The update is performed if ACTIVE contains a higher or lower bound than the current.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-cache.el.gz
;; FIXME: Why is there a `gnus-cache-possibly-alter-active',
;; `gnus-cache-possibly-update-active', and
;; `gnus-cache-update-active'?  Do we really need all three?
(defun gnus-cache-possibly-update-active (group active)
  "Update active info bounds of GROUP with ACTIVE if necessary.
The update is performed if ACTIVE contains a higher or lower bound
than the current."
  (let ((lower t) (higher t))
    (if gnus-cache-active-hashtb
	(let ((cache-active (gethash group gnus-cache-active-hashtb)))
	  (when cache-active
	    (unless (< (car active) (car cache-active))
	      (setq lower nil))
	    (unless (> (cdr active) (cdr cache-active))
	      (setq higher nil))))
      (gnus-cache-read-active))
    (when lower
      (gnus-cache-update-active group (car active) t))
    (when higher
      (gnus-cache-update-active group (cdr active)))))