Function: nnbabyl-active-number

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

Signature

(nnbabyl-active-number GROUP)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnbabyl.el.gz
(defun nnbabyl-active-number (group)
  ;; Find the next article number in GROUP.
  (let ((active (cadr (assoc group nnbabyl-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)))
	    nnbabyl-group-alist))
    (cdr active)))