Function: gnus-cache-possibly-remove-articles

gnus-cache-possibly-remove-articles is an autoloaded and byte-compiled function defined in gnus-cache.el.gz.

Signature

(gnus-cache-possibly-remove-articles)

Documentation

Possibly remove some of the removable articles.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-cache.el.gz
(defun gnus-cache-possibly-remove-articles ()
  "Possibly remove some of the removable articles."
  (if (not (gnus-virtual-group-p gnus-newsgroup-name))
      (gnus-cache-possibly-remove-articles-1)
    (let ((arts gnus-cache-removable-articles)
	  ga)
      (while arts
	(when (setq ga
		    (if (gnus-nnselect-group-p gnus-newsgroup-name)
			(with-current-buffer gnus-summary-buffer
			  (let ((article (pop arts)))
			    (cons (nnselect-article-group article)
				  (nnselect-article-number article))))
		      (nnvirtual-find-group-art
		       (gnus-group-real-name gnus-newsgroup-name) (pop arts))))
	  (let ((gnus-cache-removable-articles (list (cdr ga)))
		(gnus-newsgroup-name (car ga)))
	    (gnus-cache-possibly-remove-articles-1)))))
    (setq gnus-cache-removable-articles nil)))