Function: gnus-agent-set-local

gnus-agent-set-local is a byte-compiled function defined in gnus-agent.el.gz.

Signature

(gnus-agent-set-local GROUP MIN MAX &optional GMANE METHOD LOCAL)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-agent.el.gz
(defun gnus-agent-set-local (group min max &optional gmane method local)
  (let* ((gmane (or gmane (gnus-group-real-name group)))
         (gnus-command-method (or method (gnus-find-method-for-group group)))
         (local (or local (gnus-agent-load-local)))
         (minmax (gethash gmane local)))
    (if (cond ((and minmax
                    (or (not (eq min (car minmax)))
                        (not (eq max (cdr minmax))))
		    min
		    max)
               (setcar (gethash gmane local) min)
               (setcdr (gethash gmane local) max)
               t)
              (minmax
               nil)
              ((and min max)
               (puthash gmane (cons min max) local)
               t)
	      (t
	       (remhash gmane local)))
        (puthash "+dirty" t local))))