Function: gnus-get-killed-groups

gnus-get-killed-groups is a byte-compiled function defined in gnus-start.el.gz.

Signature

(gnus-get-killed-groups)

Documentation

Go through the active hashtb and mark all unknown groups as killed.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-start.el.gz
(defun gnus-get-killed-groups ()
  "Go through the active hashtb and mark all unknown groups as killed."
  ;; First make sure active file has been read.
  (unless (gnus-read-active-file-p)
    (let ((gnus-read-active-file t))
      (gnus-read-active-file)))
  (unless gnus-killed-hashtb
    (gnus-make-hashtable-from-killed))
  ;; Go through all newsgroups that are known to Gnus - enlarge kill list.
  (maphash
   (lambda (g-name _active)
     (let ((groups 0))
       (unless (or (gethash g-name gnus-killed-hashtb)
		   (gethash g-name gnus-newsrc-hashtb))
	 (let ((do-sub (gnus-matches-options-n g-name)))
	   (unless (or (eq do-sub 'subscribe) (eq do-sub 'ignore))
	     (setq groups (1+ groups))
	     (push g-name gnus-killed-list)
	     (puthash g-name t gnus-killed-hashtb))))))
   gnus-active-hashtb)
  (gnus-dribble-touch))