Function: nnfolder-adjust-min-active

nnfolder-adjust-min-active is a byte-compiled function defined in nnfolder.el.gz.

Signature

(nnfolder-adjust-min-active GROUP)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnfolder.el.gz
;;; Internal functions.

(defun nnfolder-adjust-min-active (group)
  ;; Find the lowest active article in this group.
  (let* ((active (cadr (assoc group nnfolder-group-alist)))
	 (marker (concat "\n" nnfolder-article-marker))
	 (number "[0-9]+")
	 (activemin (cdr active)))
    (with-current-buffer nnfolder-current-buffer
      (goto-char (point-min))
      (while (and (search-forward marker nil t)
		  (re-search-forward number nil t))
	(let ((newnum (string-to-number (match-string 0))))
	  (if (nnmail-within-headers-p)
	      (setq activemin (min activemin newnum)))))
      (setcar active activemin))))