Function: gnus-group-prepare-flat-list-dead

gnus-group-prepare-flat-list-dead is a byte-compiled function defined in gnus-group.el.gz.

Signature

(gnus-group-prepare-flat-list-dead GROUPS LEVEL MARK REGEXP)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-group.el.gz
(defun gnus-group-prepare-flat-list-dead (groups level mark regexp)
  ;; List zombies and killed lists somewhat faster, which was
  ;; suggested by Jack Vinson <vinson@unagi.cis.upenn.edu>.  It does
  ;; this by ignoring the group format specification altogether.
  (if (nthcdr gnus-group-listing-limit groups)
      (dolist (group groups)
	(when (gnus-group-prepare-logic
	       group
               (cond ((not regexp))
                     ((stringp regexp) (string-match-p regexp group))
                     ((functionp regexp) (funcall regexp group))))
          (add-text-properties
           (point) (prog1 (1+ (point))
                     (insert " " mark " *: " group
                             "\n"))
           (list 'gnus-group group
                 'gnus-unread t
                 'gnus-level level))))
    (dolist (group groups)
      (when (gnus-group-prepare-logic
             group
             (cond ((not regexp))
                   ((stringp regexp) (string-match-p regexp group))
                   ((functionp regexp) (funcall regexp group))))
        (gnus-group-insert-group-line
         group level nil
         (let ((active (gnus-active group)))
           (and active
                (if (zerop (cdr active))
                    0
                  (- (cdr active) (car active) -1))))
         (gnus-method-simplify (gnus-find-method-for-group group)))))))