Function: nnmbox-active-number

nnmbox-active-number is a byte-compiled function defined in nnmbox.el.gz.

Signature

(nnmbox-active-number GROUP)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnmbox.el.gz
(defun nnmbox-active-number (group)
  ;; Find the next article number in GROUP.
  (let ((active (cadr (assoc group nnmbox-group-alist))))
    (if active
	(setcdr active (1+ (cdr active)))
      ;; This group is new, so we create a new entry for it.
      ;; This might be a bit naughty... creating groups on the drop of
      ;; a hat, but I don't know...
      (push (list group (setq active (cons 1 1)))
	    nnmbox-group-alist))
    (cdr active)))