Re: Delete emails of my Gmail account which doesn't relevant to me.

[Emanuel Berg]

> (defun gnus-summary-respool-all ()
>   (interactive)
>   (let ((lines (count-lines (point-min) (point-max))))
>     (goto-char (point-min))
>     (gnus-summary-respool-article lines
>      (gnus-find-method-for-group "nnml:mail.misc") )))

Hm, this maybe a better interface ...

Tricky with optional args - interactive/non-interactive -
region/no region - that's the way it should look?

(defun gnus-summary-respool-all (&optional beg end)
  (interactive (when (use-region-p)
                 (list (region-beginning) (region-end)) ))
  (let*((b (or beg (point-min)))
        (e (or end (point-max)))
        (lines (count-lines b e)) )
    (goto-char b)
    (gnus-summary-respool-article
       lines
       (gnus-find-method-for-group "nnml:mail.misc") )))

https://dataswamp.org/~incal/emacs-init/gnus/summary.el

-- 
underground experts united
https://dataswamp.org/~incal