Function: gnus-cloud-prune-old-chunks

gnus-cloud-prune-old-chunks is a byte-compiled function defined in gnus-cloud.el.gz.

Signature

(gnus-cloud-prune-old-chunks HEADERS)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-cloud.el.gz
;; TODO: use this
(defun gnus-cloud-prune-old-chunks (headers)
  (let ((headers (reverse headers))
        (found nil))
  (while (and headers
              (not found))
    (when (string-match "type: :full" (mail-header-subject (car headers)))
      (setq found t))
    (pop headers))
  ;; All the chunks that are older than the newest :full chunk can be
  ;; deleted.
  (when headers
    (gnus-request-expire-articles
     (mapcar (lambda (h)
               (mail-header-number h))
             (nreverse headers))
     (gnus-group-full-name gnus-cloud-group-name gnus-cloud-method)))))