Lines Matching refs:active
50 (defvoo nnml-active-file
51 (expand-file-name "active" nnml-directory)
52 "Mail active file.")
102 (defvoo nnml-active-timestamp nil)
105 (defvoo nnml-generate-active-function 'nnml-generate-active-info)
236 (let ((active (nth 1 (assoc group nnml-group-alist))))
237 (if (not active)
241 (max (1+ (- (cdr active) (car active))) 0)
242 (car active) (cdr active) group)))))))
264 (let (active)
265 (push (list group (setq active (cons 1 0)))
271 (setcar active (apply 'min articles))
272 (setcdr active (apply 'max articles))))
273 (nnmail-save-active nnml-group-alist nnml-active-file)
278 (let ((nnmail-file-coding-system nnmail-active-file-coding-system)
280 (nnmail-find-file nnml-active-file))
281 (setq nnml-group-alist (nnmail-get-active))
293 (let ((active-articles
299 (setq active-articles (sort active-articles '<))
300 ;; Articles not listed in active-articles are already gone,
302 (setq articles (gnus-sorted-intersection articles active-articles))
328 (setq active-articles (delq number active-articles))
331 (let ((active (nth 1 (assoc group nnml-group-alist))))
332 (when active
333 (setcar active (or (and active-articles
334 (apply 'min active-articles))
335 (1+ (cdr active)))))
336 (nnmail-save-active nnml-group-alist nnml-active-file))
367 (nnmail-save-active nnml-group-alist nnml-active-file))))
383 (list (cons group (nnml-active-number group))))))
385 (nnmail-save-active nnml-group-alist nnml-active-file)
389 (if (and (not (setq result (nnmail-article-group 'nnml-active-number)))
394 (nnmail-save-active nnml-group-alist nnml-active-file)
465 ;; Save the active file.
466 (nnmail-save-active nnml-group-alist nnml-active-file)
502 (nnmail-save-active nnml-group-alist nnml-active-file)
669 (defun nnml-active-number (group)
671 (let ((active (cadr (assoc group nnml-group-alist))))
672 ;; The group wasn't known to nnml, so we just create an active
674 (unless active
675 ;; Perhaps the active file was corrupt? See whether
684 (setq active
689 (push (list group active) nnml-group-alist))
690 (setcdr active (1+ (cdr active)))
692 (expand-file-name (int-to-string (cdr active))
694 (setcdr active (1+ (cdr active))))
695 (cdr active)))
758 ;; Read the active file to make sure we don't re-use articles
766 ;; Save the active file.
767 (nnmail-save-active nnml-group-alist nnml-active-file))
769 (defun nnml-generate-nov-databases-1 (dir &optional seen no-active)
792 (funcall nnml-generate-active-function dir)
795 (unless no-active
796 (nnmail-save-active nnml-group-alist nnml-active-file))))))
799 (defun nnml-generate-active-info (dir)
800 ;; Update the active info for this group.
859 (let ((active (cadr (assoc group nnml-group-alist)))
861 (when active
863 (setf (car active) (1+ (cdr active)))
866 (setf (car active) num)))))))